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Rutal  total  fiber  regain  from  last  time  step  [fraction] 

Rbl  diffusion  resistance  of  boundary  air  layers  [s/m] 

s  sweating  rate  [kg/m2-s] 

s0  reference  basal  sweating  rate  [2.80  xlO6  kg/m2-s] 

S  saturation,  fraction  of  void  space  occupied  by  liquid  [fraction] 

s^.  imeducible  saturation;  saturation  level  at  which  liquid  phase  is  discontinuous 

T  temperature  [°K] 

Ta  ambient  air  temperature  [K] 

Tb  average  body  temperature  [K] 

I0  reference  temperature  [°K] 

T°  reference  temperature  [°K] 

T  reference  temperature  at  standard  conditions  of  0°C  in  degrees  K  (273.15  K) 

Tsk  skin  temperature  [K] 

A Tb  deviation  from  the  body's  setpoint  [K] 

T  total  stress  tensor  [N/m2] 

t  time  [sec] 

5/  diffusion  velocity  of  the  ith  species  [m/s] 

v  mass  average  velocity  [m/s] 

V;  velocity  of  the  ith  species  [m/s] 

(vp)  volume  average  liquid  velocity  [m/s] 

VJt)  volume  of  the  solid  phase  contained  within  the  averaging  volume  [m3] 

Vp( t)  volume  of  the  liquid  phase  contained  within  the  averaging  volume  [m3] 

Vp)  volume  of  the  gas  phase  contained  within  the  averaging  volume  [m3] 

V  averaging  volume  [m3] 

'VJt)  material  volume  [m3] 

h>  velocity  of  the  P-7  interface  [m/sec] 

Wj  velocity  of  the  G-y  interface  [m/sec] 
w2  velocity  of  the  o-|5  interface  [m/sec] 
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NOMENCLATURE  (continued) 


Greek  Letters 

thermal  proportional  control  coefficient  [1/K] 

0^2  thermal  proportional  control  coefficient  [1/K] 
a  hl  shivering  proportional  control  coefficient  [W/m3-K] 
shivering  proportional  control  coefficient  [W/m3-K2] 
ah3  shivering  proportional  control  coefficient  [W/m3-K] 
asl  sweating  proportional  control  coefficient  [kg/m2-s-K] 
a2  sweating  proportional  control  coefficient  [kg/m2-s-K4] 

8 C  =C2-Cj ,  water  vapor  concentration  difference  between  incoming  stream  (C7) 

and  outgoing  stream  ( C2 )  in  top  or  bottom  portion  of  the  moisture  permeation  cell 
[kg/m3] 

8<|>  =  (f>2-  4>j ,  relative  humidity  difference  between  incoming  stream  ((J^) 

and  outgoing  stream  ((J>2)  in  top  or  bottom  portion  of  the  moisture  permeation  cell 
AC  log  mean  concentration  difference  between  top  and  bottom  nitrogen  streams 
[kg/m3] 

ea(t)  VJV  volume  fraction  of  the  solid  phase 

ep(0  Vp/'K  volume  fraction  of  the  liquid  phase 

sp)  volume  fraction  of  the  gas  phase 

eds  V**  volume  fraction  of  the  dry  solid  (constant) 

ebw(t)  VJV  volume  fraction  of  the  water  dissolved  in  the  solid  phase 

<I>  rate  of  heat  generation  [J/sec-m3] 

<(>  p Jps,  relative  humidity 

%  unit  tangent  vector 

y  thermal  rate  control  coefficient  [s/K] 

|i  shear  coefficient  of  viscosity  [N-sec/m2] 

|ip  viscosity  of  the  liquid  phase  [for  water,  9.8  x  10-4  kg/m-sec  at  20°C] 

p  density  [kg/m3] 

Pp  density  of  liquid  phase  [kg/m3] 

p.  density  of  the  ith  species  [kg/m3] 

p^  density  of  dry  solid  [for  polymers  typically  900  to  1300  kg/m3] 
pw  density  of  liquid  water  [approximately  1000  kg/m3] 
p^  density  of  gas  phase  (mixture  of  air  and  water  vapor)  [kg/m3] 

pv  density  of  water  vapor  in  the  gas  volume  (equivalent  to  mass  concentration) 

[kg/m3] 
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NOMENCLATURE  (continued) 


pa  density  of  the  inert  air  component  in  the  gas  volume 
(equivalent  to  mass  of  air/total  gas  volume)  [kg/m3] 
x  viscous  stress  tensor  [N/m3] 

x  tortuosity  factor 

|  thermal  dispersion  vector  [J/sec-m3] 

|  dummy  integration  variable 

£  a  function  of  the  topology  of  the  liquid  phase 

Subscripts 

i  designates  the  ith  species  in  the  gas  phase 
/  liquid 

L  liquid 

s  solid 

S  solid 

G  designates  a  property  of  the  solid  phase 

P  designates  a  property  of  the  liquid  phase 

y  designates  a  property  of  the  gas  phase 

oP  designates  a  property  of  the  c-p  interface 

oy  designates  a  property  of  the  G-y  interface 

Py  designates  a  property  of  the  P~y  interface 

Mathematical  Symbols 

total  time  derivative 
material  time  derivative 
partial  time  derivative 

spatial  average  of  a  function  y  which  is  defined  everywhere  in  space 
phase  average  of  a  function  yp  which  represents  a  property  of  the  P  phase 

intrinsic  phase  average  of  a  function  yp  which  represents  a  property  of  the  P 
phase 


dldt 

D/Dt 

a/at 

M 

M 
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MULTIPHASE  HEAT  AND  MASS  TRANSFER  THROUGH  HYGROSCOPIC 
POROUS  MEDIA  WITH  APPLICATIONS  TO  CLOTHING  MATERIALS 


CHAPTER  1 
INTRODUCTION 

The  transfer  of  heat  and  mass  from  a  clothed  human  being  to  the  environment  is 
a  complex  process.  In  rare  instances,  the  flows  of  mass  and  energy  may  be  treated  as  a 
steady-state  problem.  In  most  cases,  however,  the  steady-state  situation  is  not  achieved, 
and  the  dynamics  of  the  transport  of  energy  and  mass  must  be  understood  in  order  to 
predict  how  much  energy  is  being  exchanged  between  the  human  body  and  the 
environment. 

The  dissipation  of  heat  from  the  human  body  is  often  a  particularly  critical 
problem  for  protective  clothing  systems.  For  example,  chemical  protective  clothing 
systems  must  protect  people  from  vapors,  liquids,  and  aerosols,  but  they  must  also 
maximize  the  heat  dissipated  to  the  environment  to  minimize  the  heat  stress  imposed 
upon  the  wearer.  As  a  practical  matter,  most  chemical  protective  clothing  systems  are 
quite  thin,  and  the  heat  transfer  due  to  conduction,  convection,  and  radiation  is 
comparable  to  many  other  types  of  clothing.  Since  the  principal  mechanism  by  which 
humans  dissipate  heat  in  hot  environments  is  the  evaporation  of  sweat  from  the  skin 
surface,  with  the  water  vapor  carrying  away  the  enthalpy  of  vaporization,  the  barrier 
properties  of  the  chemical  protective  clothing  will  usually  also  impede  the  movement  of 
water  vapor.  The  way  in  which  the  clothing  layers  mediate  the  flow  of  liquid  and  vapor 
become  the  dominant  factor  controlling  the  dissipation  of  heat  from  the  human  body. 

The  variety  of  materials  which  are  contained  in  a  clothing  system  present  a  very 
wide  spectrum  of  properties.  Woven  and  nonwoven  textiles  may  include  both 
hygroscopic  and  non-hygroscopic  fibers.  Transport  through  the  clothing  system 
involves  diffusion  of  heat  and  moisture,  convective  air  flows,  and  liquid  water  capillary 
wicking.  Hygroscopic  fibers  may  absorb  water  in  vapor  or  liquid  form  and  release  the 
heat  of  sorption,  which  serves  as  a  energy  source  within  the  clothing.  Depending  on  the 
ambient  environment,  water  vapor  may  condense  in  outer  layers  of  clothing,  which 
liberates  the  heat  of  condensation  and  serves  as  another  heat  source  within  the  clothing. 
Many  modem  protective  clothing  systems  also  include  polymeric  membranes,  which 
may  be  either  a  microporous  hydrophobic  polymer  (e.g.  polytetrafluoroethylene),  or  a 
very  thin  solid  layer  of  a  hydrophilic  polymer  (e.g.  polyurethane).  The  various  steps 
involved  in  sorption  of  liquid  water  or  vapor  into  the  membrane,  diffusion  through  the 
structure,  and  desorption  from  the  other  side,  are  often  complicated  by  the 
concentration-dependent  permeation  properties  of  many  of  the  polymers  in  common  use. 
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All  of  these  processes  are  time-dependent.  Particularly  for  the  hygroscopic 
materials,  equilibrium  does  not  take  place  within  a  matter  of  seconds,  but  may  require 
time  scales  of  minutes  to  hours.  Since  humans  are  rarely  working  at  a  sustained  constant 
work  level  for  hours  on  end,  steady-state  approximations  to  determine  quantities  such  as 
total  moisture  accumulation  within  the  clothing,  or  total  heat  and  mass  transferred 
through  the  clothing,  are  often  inaccurate  since  the  steady-state  heat  and  mass  transfer 
properties  are  inapplicable. 

The  intent  of  this  study  was  to  develop  a  useful  model  of  the  coupled  transport  of 
energy  and  mass  through  porous  hygroscopic  clothing  materials,  and  to  verify  that 
model  by  experimental  measurements.  Such  a  model  should  account  for  the 
complicating  factors  of  sorption,  condensation,  evolution  of  heat,  liquid  water  capillary 
transport,  and  coupled  diffusion  of  heat  and  mass.  The  model  is  also  integrated  with 
existing  human  thermal  model,  which  provides  time-dependent  boundary  conditions  as  a 
function  of  human  work  rate,  core  temperature,  skin  temperature,  and  evaporative  flux. 
This  made  it  possible  to  assess  the  transient  behavior  of  various  clothing  systems  and  to 
optimize  properties  both  on  the  basis  of  an  individual  layer,  and  the  arrangement  of 
multiple  layers. 

BACKGROUND 

Traditionally,  studies  of  the  coupled  transfer  of  heat  and  moisture  through  textile 
materials  focused  on  the  diffusion  of  heat  and  water  vapor.  Liquid  water  accumulation 
and  transport  within  a  textile  layer  are  usually  presented  as  complicating  factors  which 
are  neglected. 

Fundamental  studies  by  Henry  [1]  on  how  the  sorptive  properties  of  wool  fibers 
produce  a  buffering  effect  between  the  human  body  and  the  ambient  environment  were 
incorporated  by  Crank  [2]  in  his  classic  work  on  the  mathematics  of  diffusion.  The  heat 
released  as  water  vapor  diffuses  through,  and  is  absorbed  by,  a  bed  of  hygroscopic 
fibers,  is  significant  for  processing  operations,  such  as  when  bales  of  wool  or  cotton 
must  be  dried  to  a  specified  moisture  content.  Similarly,  for  woolen  clothing,  the  heat 
released  or  absorbed  when  the  relative  humidity  or  temperature  within  a  woolen  textile 
layer  changes  is  often  physiologically  significant  Various  workers  have  extended 
Henry’s  approach  over  the  years,  most  notably  Nordon  and  David  [3] ,  Fam worth  [4], 
Wehner  [5],  and  Li  and  Holcombe  [6].  While  continuing  to  concentrate  on  the  coupled 
diffusion  processes  for  energy  and  water  vapor  through  porous  hygroscopic  layers,  each 
group  made  different  assumptions  concerning  the  nature  of  the  sorption  process  within 
the  hygroscopic  fiber. 
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The  groups  mentioned  above  all  focused  on  woven  and  nonwoven  textiles  as  the 
material  of  interest.  A  great  many  more  studies  have  been  undertaken  for  the  coupled 
heat  and  mass  transfer  problem  through  porous  media  in  general.  Much  of  the  literature 
on  drying  of  capillary  porous  bodies  or  hygroscopic  porous  materials  is  directly 
applicable  to  the  problem  of  mass  and  energy  transport  through  textile  materials.  Many 
studies  concentrate  on  a  limited  set  of  materials,  derive  a  small  number  of  partial 
differential  equations  based  on  either  diffusion  or  convection,  and  develop  solutions 
based  on  these  particular  situations.  Well-known  examples  of  this  approach  include 
studies  by  Berger  and  Pei  [7],  Eckert  and  Faghri  [8],  and  Stanish  et.  al.  [9]  More 
comprehensive  systems  of  equations  which  account  for  diffusion  of  heat  and  water 
vapor,  along  with  convective  gas  flows,  and  capillary  liquid  transport,  are  available  in 
works  by  Luikov  [10]  and  Whitaker[l  1].  The  approach  taken  by  Whitaker,  in  particular, 
has  been  adopted  by  many  groups  investigating  transfer  of  heat  and  moisture  through 
food  materials  (drying)  and  thermal  insulation. 

Simonson,  Tao,  and  Besant  [12]  have  successfully  applied  Whitaker's  approach 
to  a  fibrous  insulation  which  releases  heat  due  to  sorption  of  water  vapor  by  the  fiber, 
and  also  by  condensation  occurring  within  the  porous  structure.  They  showed  that  the 
transient  nature  of  the  heat  flow  process  in  fibrous  materials  can  produce  large  errors  if 
the  fiber  heat  of  sorption  is  ignored  in  an  analysis. 

Most  approaches  to  studying  heat  and  mass  transfer  through  porous  media  utilize 
constant  temperature  or  constant  flux  boundary  conditions.  For  heat  and  mass  transfer 
from  the  human  body,  however,  the  interaction  between  the  human  thermal  control 
system  and  the  behavior  of  the  clothing  system  can  become  as  important  as  the  behavior 
of  the  clothing  system  itself.  Efforts  to  incorporate  human  thermal  models  as  part  of  a 
complete  simulation  of  the  dynamic  behavior  of  the  human-clothing-environment  system 
have  been  undertaken.  To  date,  all  of  them  only  incorporate  diffusion  of  heat  and 
diffusion  of  water  vapor  within  the  clothing  system,  and  ignore  convection  of  air  and 
liquid  wicking. 

Ma,  eL  al.  [13],  developed  a  detailed  thermal  model  of  the  interactions  between  a 
hygroscopic  clothing  layer,  the  environment,  and  the  human  body.  This  one¬ 
dimensional  model  divided  the  human  body  into  a  core  region  which  generated  the 
majority  of  the  basal  metabolic  heat,  a  muscle  region  which  also  generated  some  heat 
through  exercise  and  shivering,  and  a  skin  layer.  The  appropriate  thermal  properties 
such  as  heat  capacity  and  thermal  conductivity  for  each  tissue  layer  are  used  to  write  the 
time-dependent  partial  differential  equations  for  the  various  layers,  which  were  then 
solved  numerically.  This  human  model  was  coupled  to  a  clothing  model  very  similar  to 
that  developed  by  Henry  [1],  and  Norden  and  David  [3],  and  was  fairly  successful  at 
assessing  the  influence  of  various  clothing  parameters  upon  such  variables  such  as 
human  core  and  skin  temperature.  A  less  sophisticated,  but  equally  valid,  one- 
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dimensional  approach  was  used  by  Li,  et.  al.  [14],  to  determine  the  change  in  surface 
temperature  of  a  hygroscopic  fabric  close  to  the  skin,  and  the  perceived  tactile  sensation 
as  a  result  of  the  buffering  effect  of  a  hygroscopic  fabric  as  opposed  to  a  non- 
hygroscopic  fabric.  Perhaps  the  most  sophisticated  approach  taken  to  date  is  that  of 
Jones  [15],  who  used  a  two-node  model  of  the  human  thermal  control  system,  coupled  to 
a  segmented  whole-body  clothing  model,  to  determine  the  interactions  between  the 
human  thermal  control  system,  the  clothing  system,  and  the  external  environment,  and 
compared  the  transient  results  with  traditional  steady-state  model  results.  Even  in  this 
study,  liquid  water  accumulation  and  transport  was  neglected,  even  though  it  is  known 
that  such  factors  are  very  important  when  humans  are  sweating  heavily  inside  multi¬ 
layer  clothing  systems. 

It  is  clear  that  there  are  a  variety  of  basic  questions  concerning  the  optimum 
material  properties  desired  in  protective  clothing  systems.  Even  under  steady-state 
conditions,  there  is  uncertainty  about  the  importance  of  wicking,  air  permeability, 
diffusion,  and  the  proper  arrangement  of  the  various  layers  of  a  clothing  system.  When 
we  try  to  consider  the  unsteady-state  behavior  of  these  materials,  the  problem  becomes 
even  more  difficult,  particularly  since  there  are  often  several  different  materials  even 
within  a  single  textile  layer. 

To  date,  research  on  heat  and  mass  transfer  through  textile  materials  has 
concentrated  on  simplified  models  which  usually  neglect  convection  and  capillary 
transport  There  is  a  need  for  comprehensive  models  of  clothing  material  behavior 
which  can  include  more  than  just  vapor  diffusion.  It  is  apparent  that  the  very  large  body 
of  work  available  in  the  general  technical  literature  on  coupled  heat  and  mass  transfer 
through  porous  media  has  been  largely  ignored  by  researchers  in  the  textile  field.  The 
application  of  these  existing  sophisticated  and  experimentally  verified  analysis 
techniques  to  unsteady  heat  and  mass  transfer  through  textile  materials  is  a  necessary 
step  in  advancing  our  understanding  of  the  interactions  between  human,  clothing,  and 
environment 

Since  the  performance  of  clothing  systems  is  intimately  connected  to  the  thermal 
properties  of  the  human  wearing  the  system,  it  is  desirable  to  couple  the  dynamic 
behavior  of  the  clothing  system  to  the  human  physiology  of  heat  regulation.  A  versatile 
model  of  unsteady  heat  and  mass  transfer  through  textile  materials,  well-verified  with 
experimental  data,  would  be  a  valuable  tool  both  for  basic  research,  and  for  the 
evaluation  and  design  of  new  protective  clothing  concepts. 

The  main  objective  of  this  investigation  is  to  develop  a  numerical  model  capable 
of  including  all  the  major  modes  of  energy  and  mass  transport  which  occur  in  clothing. 
The  model  will  include  diffusion  of  heat  and  mass,  condensation  and  evaporation  of 
water  within  the  clothing  system,  sorption  and  diffusion  of  water  within  the  solid  matrix, 
liquid  water  capillary  transport,  and  forced  convection  of  air  and  water  vapor  through 
the  porous  structure.  Such  a  detailed  model  will  be  a  valuable  tool  during  the  design 
and  evaluation  process  for  new  protective  clothing  concepts  based  on  modem  multi- 
component  textile  technology. 
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The  approach  relied  on  both  modeling  and  experiment.  A  set  of  partial 
differential  equations  describing  time-dependent  heat  and  mass  transfer  through  porous 
hygroscopic  materials  were  developed.  The  theory  developed  by  Whitaker  [11],  based 
on  the  control  volume  approach,  was  the  starting  point  for  the  system  of  equations. 

Since  Whitaker  developed  his  equations  for  a  rigid  inert  porous  matrix,  which  only 
participates  in  the  transport  process  through  its  thermal  properties,  the  derivations  had  be 
modified  to  account  for  the  absorption  and  diffusion  of  water  within  the  solid  matrix. 
Water  in  a  hygroscopic  porous  solid  may  exist  in  vapor  or  liquid  form  in  the  pore  spaces 
or  in  bound  form  when  it  has  been  absorbed  by  the  solid,  which  is  typically  some  kind 
of  hydrophilic  polymer.  Factors  such  as  the  swelling  of  the  solid  due  to  water 
imbibition,  and  the  heat  of  sorption  evolved  when  the  water  is  absorbed  by  the 
polymeric  matrix,  were  incoiporated  into  the  appropriate  conservation  and  transport 
equations. 

The  numerical  methods  and  experimental  techniques  treated  the  transport 
problem  as  either  one-dimensional  and  two-dimensional  cases.  This  simplified  the 
numerical  analysis  considerably,  both  in  terms  of  computational  expense,  and  in  the 
ability  to  use  a  variety  of  well-known  finite-difference  methods  for  the  solution  of  the 
system  of  equations.  The  primary  method  used  was  Patankar's  control  volume  approach 
[17].  This  implicit  method  has  been  used  for  similar  problems  concerning  the  coupled 
transfer  of  heat  and  mass  in  insulation  materials  [18, 19]. 

The  numerical  experiments  for  the  finite-difference  code  were  compared  to 
results  from  laboratory  experiments  performed  in  support  of  the  numerical  modeling 
effort.  The  transport  coefficients  and  parameters  required  in  the  partial  differential 
equations,  such  as  thermal  conductivity,  diffusion  coefficient,  heat  capacity,  sorption 
isotherms  and  heats  of  sorption,  etc.,  were  determined  using  equipment  already 
available,  equipment  built  especially  for  this  purpose,  or  values  taken  from  the  literature. 

Following  the  verification  of  the  numerical  model  for  coupled  heat  and  mass 
transfer  through  hygroscopic  porous  materials,  an  existing  human  thermal  control  model 
was  selected  to  provide  time-dependent  boundary  conditions  for  the  numerical  model.  A 
variety  of  models  exist  and  are  available  for  use.  The  segmented  whole-body  models  of 
Stolwijk  [21]  and  Wissler  [22],  which  are  among  the  most  well-known  and  accurate, 
were  all  candidates  which  could  be  adapted  to  provide  a  generic  simplified  model  which 
would  provide  appropriate  boundary  conditions  for  a  one-dimensional  material  model. 
The  simplest  model  to  use  is  probably  the  two-node  model  of  Gagge  et.  al.  [23, 24], 
which  is  in  wide  use,  and  requires  little  modification. 

The  combination  of  a  valid  material  model  with  a  well-known  human  thermal 
physiology  model  provided  an  opportunity  to  systematically  examine  a  number  of 
clothing  parameters,  and  determine  their  importance  under  various  conditions  of  human 
work  rates  and  environmental  conditions.  However,  for  this  portion  of  the  study,  it  was 
difficult  to  verify  the  results  by  experiment,  since  most  human  thermal  tolerance  studies 
usually  assume  constant  clothing  heat  and  mass  transfer  coefficients. 
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This  research  effort  is  aimed  at  providing  a  useful  analysis  tool  for  studies  of  the 
various  transport  phenomena  affecting  the  thermal  balance  of  clothed  humans  under 
different  environmental  conditions.  It  addresses  the  current  need  for  more  realistic 
models  of  coupled  heat  and  mass  transfer  through  hygroscopic  porous  textile  materials 
which  include  phenomena  such  as  liquid  water  wicking,  condensation/evaporation  within 
textile  layers,  concentration-dependent  permeation  behavior  of  semipermeable 
membrane  laminates,  and  the  sorption  behavior  of  hygroscopic  textile  fibers. 

The  present  design  and  evaluation  process  for  a  new  protective  clothing  system  is 
very  expensive  and  time-consuming.  Textile  materials,  which  are  the  basic  building 
blocks  of  any  garment,  are  usually  selected  based  on  a  few  steady- state  properties 
determined  from  laboratory  tests.  A  long  process  of  design  iteration  using  heated 
manikins,  and  human  wear  trials  in  environmentally-controlled  chambers,  is  then  begun 
in  order  to  evaluate  the  dynamic  interactions  between  the  human,  clothing,  and  the 
environment.  The  numerical  model  described  here  will  make  a  significant  impact  on  all 
aspects  of  the  design  process  by  incorporating  many  of  these  dynamic  interactions  into 
the  basic  material  selection  process,  hopefully  obviating  some  of  the  need  for  such 
extensive  human  chamber  evaluations. 
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CHAPTER  2 


GOVERNING  EQUATIONS 


2.1  Introduction 

The  basis  for  the  set  of  governing  equations  is  Whitaker's  comprehensive  theory  for 
mass  and  energy  transport  through  porous  media  [25].  These  equations  are  also 
applicable  to  mass  and  energy  transport  through  textile  materials  if  some  modifications 
are  made.  Whitaker  modeled  the  solid  portion  of  the  solid  matrix  as  a  rigid  inert 
material  which  only  participates  in  the  transport  process  through  its  thermal  properties. 
In  hygroscopic  textile  materials  the  diffusion  of  water  into  the  solid  is  a  significant  part 
of  the  total  transport  process.  The  inclusion  of  the  extra  transport  terms  into  and  out  of 
the  solid  matrix  necessitate  extensive  modifications  of  Whitaker's  original  derivations. 

The  structure  of  this  chapter  follows  Whitaker's  derivations  as  closely  as  possible. 
Many  references  are  made  to  his  original  derivation.  Where  possible,  the  nomenclature 
and  symbols  are  identical  to  Whitaker's  original  derivation  to  facilitate  cross-referencing 
between  this  modified  set  of  equations  and  Whitaker's  original  set  of  equations. 

2.2  Mass  and  Energy  Transport  Equations 

The  hygroscopic  porous  media  is  modeled  as  shown  below. 


Figure  1.  Three  phases  present  in  hygroscopic  porous  media. 
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A  typical  porous  hygroscopic  textile  material  may  be  described  as  a  mixture  of  a  solid 
phase,  a  liquid  phase,  and  a  gaseous  phase.  The  solid  c  phase  consists  of  the  solid  material 
(usually  a  polymer  e.g.  wool  or  cotton)  plus  any  bound  water  absorbed  in  the  solid  polymer 
matrix.  The  solid  phase  is  thus  a  mixture  of  the  solid  and  the  liquid.  This  definition  of  the 
solid  phase  means  that  the  density  is  dependent  on  the  amount  of  water  contained  in  the  solid 
phase. 

The  liquid  (3  phase  consists  of  the  free  liquid  water  which  may  be  present  within  the 
structure  of  the  porous  solid.  This  would  also  include  water  which  is  contained  within  the 
pore  spaces  of  the  solid  but  is  not  sorbed  into  the  polymeric  matrix.  This  liquid  (3  phase  is 
a  pure  component,  and  we  will  be  able  to  assume  a  constant  density  for  it. 

The  gaseous  yphase  consists  of  the  vapor  component  of  the  liquid  (water  vapor)  plus  the 
inert  air  component.  Since  it  is  a  mixture  of  water  vapor  and  air,  its  density  will  not  be 
constant,  but  will  be  a  function  of  temperature,  concentration,  etc. 

The  appropriate  general  transport  and  conservation  equations  to  be  used  are: 


(2.2.1) 


(2.2.2) 

thermal  energy  equation: 

p— =  -V-^+— +Vv:x+0  (2.2.3) 

y  Dt  Dt 

In  keeping  with  Whitaker's  derivation,  we  will  neglect  the  viscous  stress  tensor. 


continuity  equation: 
dp 


dt 


+  V  •  (pv)  =  0 


linear  momentum: 

DV  _  V7  T 

p7r-=ps+VT 


Point  Equations 
c-Phase  --  Solid 

The  solid  c  phase  is  made  up  of  the  true  dry  solid  (polymer)  plus  any  of  the  liquid 
phase  or  the  vapor  component  of  the  gas  phase  which  has  dissolved  into  it  or  adsorbed 
onto  its  surface.  This  may  also  result  in  a  volume  change  for  the  solid  a  phase 
(swelling).  The  solid  is  now  a  mixture  of  the  true  dry  solid  plus  the  liquid,  so  we  now 
must  account  for  the  two  components. 

Since  swelling  is  possible,  which  results  in  a  small  velocity  of  the  solid  portion  due  to 
its  displacement,  we  must  account  for  the  velocity  of  the  solid  by  using  the  continuity 
equation: 
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^-+V-(povo)  =  0  (2.2.4) 

and  for  the  two  components  of  liquid  (1)  +  solid  component  (2) ,  the  species  continuity 
equation  is: 


V ■  (p jVj ) =  0  ,  i  =  1,2,  ... 


(2.2.5) 


The  a  phase  density  is  not  constant,  since  it  includes  the  density  of  the  solid  plus  the 
density  of  the  liquid  contained  within  the  solid.  The  species  densities  are  likewise  not 
constant,  since  the  species  density  is  calculated  on  the  basis  of  the  total  phase  volume. 
For  the  two  species: 


P  = 


m1+m2  _  m1 

V  ~  V 
va  Kc 


=  Pi  +  p2 


(2.2.6) 


We  will  assume  that  the  dry  density  of  the  solid,  and  the  density  of  the  liquid  are 
constant,  and  will  call  them  ps  and  pL. 

For  the  solid  phase,  we  can  divide  the  solid  phase  volume  into  the  fraction  taken  up 
by  the  liquid,  and  the  fraction  taken  up  by  the  solid: 

_  Volume  of  Liquid 
Total  c  Phase  Volume 


eaL 


(2.2.7) 


The  relation  between  the  species  densities  and  the  solid  and  liquid  densities  is: 

P  =  £glPl  +(1- eoZ,)Ps  =  Pi  +  P2 

Pi  =  £clPl  (2.2.8-2.2.10) 

p2  =  (1-£0l)Ps 


The  density  and  velocity  of  the  mixture,  in  terms  of  the  species  densities,  is  given  as: 


Pc  =  Pl+P2 

PoV0=PiVi+p2v2 

or 


(2.2.11-2.2.12) 


Pa  =  £cZ,Pl  +  (1~  egOPs 
Pa^a  =  eaLPL^l  +  0  “  ecl)Ps% 


The  species  velocity  is  written  in  terms  of  the  mass  average  velocity  and  the  diffusion 
velocity  as: 

v-  =vc+ui  (2.2.15) 


and  the  continuity  equation  becomes: 


The  diffusion  flux  may  be  written  in  terms  of  a  diffusion  coefficient  as: 


P« ui  ~  Pa®a^ 


'p.' 


Ip 


ay 


and  the  continuity  equation  may  be  written  as: 

i  =  l  2  3 

,  A  X)  ... 


3a 


Pc®cV 

M 

l 

Ipo  )} 

(2.2.17) 


(2.2.18) 


For  the  purposes  of  comparison  to  other  models  of  heat  and  mass  transfer  through 
porous  materials,  it  will  be  convenient  later  on  to  write  these  equations  in  terms  of 
concentrations  of  water  (component  1)  in  the  solid  (component  2). 


We  define  the  concentration  of  water  in  the  solid  ( C  )  as: 

x  S' 

,  _  Mass  of  water  _  ml  _  pt 
5  Mass  of  the  solid  phase  ml  +  m2  pa 


(2.2.19) 


If  we  only  want  to  consider  the  continuity  equation  for  the  liquid  phase,  since  it's 
really  the  only  material  moving  into  or  out  of  the  solid  phase,  we  can  just  use  the 
continuity  equation  for  the  liquid,  which  is: 


f+v.(pA)=v.jpAv{^)} 


(2.2.20) 


Now  depending  on  how  we  want  to  treat  the  solid  velocity,  we  can  rewrite  this  a 
couple  of  ways.  If  we  say  that  the  solid  velocity  is  included,  then  in  terms  of  the  true 
liquid  density,  where  the  species  density  is  given  by: 


Pi  =  £clPl  and  Pc  -  £glPl  +  (1~  £ol)Ps  ’ 


(2.2.21) 


the  continuity  equation  can  be  rewritten  as: 
3£c l 


P L 


or 


dt 


■+V-(e0z,v0) 


=  V-{pa®LoV(Cs)} 


3£cl 

dt 


<-V-(£oLvc)  = 


(  n  v\ 

l_p£ 


V 


pt  V  [e^VfC,)]  +&{v  •K.VfC,)]} 


(2.2.22) 


(2.2.23) 


9e, 


If  we  can  neglect  the  solid  velocity,  the  continuity  equation  becomes: 

+^{V-Kv(Q)]}  (2.2.24) 


Ps 


cL  _  rs_ 

dt  l  Pl 
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(2.2.25) 


We  must  also  include  the  momentum  balance: 

Po-^-  =  P0?+V  T0  =»  P,{f+(VV)P„}  =  P0I+V.T„ 

According  to  Jomaa  and  Puigali  [26]  we  may  also  write  the  linear  momentum 
equation  as: 

Pa^-  =  Pol+v*To  (2.2.26) 

There  are  a  couple  of  ways  to  address  the  mass  average  solid  phase  velocity.  If  we 
assume  that  the  total  thickness  of  the  materials  we  are  trying  to  model  does  not  change, 
then  total  volume  remains  constant,  and  the  change  in  volume  of  the  solid  is  directly 
related  either  to  the  change  in  volume  of  the  liquid  phase,  or  the  change  in  volume  of  the 
gas  phase.  Another  approach  is  to  let  the  total  volume  of  the  material  change  with  time. 
As  the  material  dries  out,  and  the  total  mass  changes,  the  thickness  of  the  material  will 
decrease  with  time  proportional  to  the  water  loss  which  takes  place.  Allowing  the 
thickness  of  the  material  to  change  with  time  would  result  in  a  solid  phase  velocity, 
which  we  could  relate  to  the  total  material  shrinkage.  The  two  situations  are  illustrated 
in  Figure  2  for  a  matrix  of  solid  fibers  undergoing  shrinkage  due  to  water  loss. 


Case  1 

Solid  fiber  shrinkage 
results  in  bulk  thickness 
reduction  and  nonzero 
mass  average  solid  velocity. 


Case  2 

Total  bulk  thickness  and  volume 
do  not  change; shrinkage  of 
solid  fiber  portion  due  to 
water  loss  does  not  result  in  a 
mass  average  solid  velocity. 


Figure  2.  Two  methods  of  accounting  for  shrinkage/swelling  due  to  water  uptake  by  a 
porous  solid. 
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We  will  initially  assume  that  the  shrinkage  behavior  is  like  the  first  case  shown.  This 
means  that  we  must  include  the  mass  average  velocity  in  the  derivations,  and  that  the 
total  material  volume  (or  thickness  in  one  dimension)  will  no  longer  remain  constant. 

Jomaa  and  Puiggali  also  give  an  equation  for  the  solid  velocity,  in  terms  of  the 
intrinsic  phase  average  (discussed  later)  as: 

(Z2'27> 

where  £,  is  the  generalized  space  coordinate,  with  the  origin  at  the  center  of  symmetry, 
and  n  depends  on  the  geometry  (n=l—plane,n=2— cylinder,  n=3--sphere)  according  to  the 
paper  by  Crapiste  et.  al.  [27] 

The  thermal  energy  equation  is: 

Pa  ^  =  "V  ’  ^  +^+ +  °°  (2’2*28) 

Some  simplifying  assumptions  can  be  made  at  this  point  by  neglecting  several 
effects.  We'll  start  by  dropping  the  reversible  and  irreversible  work  terms  in  the  thermal 
energy  equation,  along  with  the  source  term,  and  expand  the  material  derivative: 

p„^  =  p0(^  +  VVAa}  =  -V-?0  (2.2.29) 

It  will  be  assumed  that  enthalpy  is  independent  of  pressure,  and  is  only  a  function  of 
temperature,  and  that  heat  capacity  is  constant  for  all  the  phases. 

We  can  replace  the  enthalpy  by: 
h  =  cpT+ constant  ,  inthecr,  (5,  and  y phases. 

We  can  now  rewrite  the  thermal  energy  equation  as: 

3  ( c  )  T 

Pa - —  +  P<J  [vo  • v  (CP  )c  To  +  constant  J  =  -V  ■ •  qa  (2.2.30) 

(2-2-31) 

We  may  apply  Fourier's  law  to  obtain: 

Pa(cP)0{^-  + ^  Vro|  =  kGV%  (2.2.32) 
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or,  for  a  multi-component  mixture: 


Mcp)0[  9;+v*-vra 


=  kaVlT  -  V 


0=N 

LpM- 

U'=i 


(2.2.33) 


;“P Lh 


where  (cp  )c  “  2  n  ^  (cp )  .- 
j—l  Per  J 

and  the  partial  mass  heat  capacity  and  enthalpies  [cp).  ,  hj  are  given  by  the  partial 

molar  enthalpy  and  the  partial  molar  heat  capacity  divided  by  the  molecular  weight  of 
that  component. 


P  Phase -Liquid 

The  continuity  equation  for  the  liquid  phase  is: 

^  +  V.(ppvp)  =  0  (2.2.34) 


For  the  thermal  energy  equation,  as  we  did  before,  we  neglect  compressional  work 
and  viscous  dissipation: 


^-Vvp:xp_Op-0 

which  reduces  the  thermal  energy  equation  to: 


Pp 


dt 


+  Vi 


fc-V*p 


=-v 


■% 


(2.2.35) 


(2.2.36) 


If  we  assume  enthalpy  only  depends  on  temperature  and  specific  heat,  as  we  did  for 
the  solid,  we  may  write  the  thermal  energy  equation  for  the  liquid  phase  as: 


p  e(c/>)£ 


rarR 


dt 


+  vp-V7p 


(2.2.37) 


The  liquid  momentum  equation  will  be  discussed  later  in  terms  of  a  permeability 
coefficient  which  depends  on  the  level  of  liquid  saturation  in  the  porous  solid. 

y  Phase  -  Gas 

The  gas  phase  is  made  up  of  the  vapor  form  of  the  liquid  (3  phase,  and  an  inert 
component  (air).  We  do  not  need  to  modify  any  of  the  assumptions  made  by  Whitaker 
for  this  phase,  so  we  may  simply  write  down  the  equations  given  by  Whitaker  [25]. 
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continuity  equation: 

^+V(pTvT)  =  0  (2.2.38) 

and  for  the  two  components  of  vapor  (1)  +  inert  component  (2) ,  the  species  continuity 
equation  is: 

%+V-(p,v/)  =  0  ,  i  =  1,2,  ...  (2.2.39) 

at 


The  density  and  velocity  of  the  mixture  is  given  as: 
Py  =  Pl+P2 
pYvy=PiV1  +  p2v2 


(2.2.40  -  2.2.41) 


The  species  velocity  is  written  is  terms  of  the  mass  average  velocity  and  the  diffusion 
velocity  as: 

v,-  =  vy  +  U;  (2.2.42) 

and  the  continuity  equation  becomes: 

+ V •  (p,Vy )  =  - V •  (P/M; )  ,  i  =  l,  2,  3,  ...  (2.2.43) 


The  diffusion  flux  may  be  written  in  terms  of  a  diffusion  coefficient  as: 


Pity  —  Py®^7 


V 

vpvy 


and  the  continuity  equation  may  be  written  as: 


(2.2.44) 


dpt 

dt 


+  V-(p,Vy)  =  V- 


py2)V 


V 

vpyv 


,  i  =  l,  2,  3, 


(2.2.45) 


It  is  possible  that  we  can  neglect  the  change  in  gas  density  with  time,  or  at  least  the 
change  in  the  density  of  the  inert  component,  and  only  consider  the  continuity  equation 
for  the  vapor  component  of  the  gas  phase  (component  1): 


|t+V.(PlvY)  =  V- 


Py2)V 


f  \ 

Pl 

vpryj 


(2.2.46) 


and  if  we  have  no  gas  phase  convection,  with  the  gas  phase  stagnant  in  the  pore  spaces, 
the  continuity  equation  becomes: 


dpi 

dt 


=  V- 


Py2)V 


V 

VPY/ 


(2.2.47) 
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The  thermal  energy  equation  is  given  as: 


Prh)ilf+VVIr 


=  kyV2T-V- 


) 


<i=N  _ ' 

Xpm- 

v*=l 


(2.2.48) 


where  (c/>)y-Xp^(cp),-  , 


and  the  partial  mass  heat  capacities  and  enthalpies  {cp ) .  ,  ht  are  again  given  by  the 

partial  molar  enthalpy  and  the  partial  molar  heat  capacity  divided  by  the  molecular 
weight  of  that  component. 


Boundary  Conditions 


Whitaker  next  derives  the  boundary  conditions  for  each  phase  interface.  This  section 
of  the  original  derivation  must  be  extensively  modified  since  we  no  longer  have  a  rigid 
solid  phase  with  zero  velocity.  We  will  no  longer  have  a  simple  set  of  boundary 
conditions  for  the  solid-liquid  and  solid-vapor  interface.  The  conventions  and 
nomenclature  for  the  phase  interface  boundary  conditions  are  given  below  in  Figure  3, 
which  follows  Whitaker's  approach  as  closely  as  possible. 


Figure  3.  Material  volume  containing  a  phase  interface,  with  velocities  and  unit  normals 
indicated.  Only  two  phases  (solid  and  gas)  shown. 
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Liquid-Gas  Boundary  Conditions 


Whitaker  gives  the  appropriate  boundary  conditions  for  the  liquid-gas  interface  as: 


pp/jp(vp-w)-/^+py/iy(vY-vp)-/typ-  j 


%  *^jjy  ' 


i=N 

9t  +  lpAh 

/= 1 


+Py(vy-Vp)-/typ  =0 

continuous  tangent  components  to  the  phase  interface  X: 

V^Pr  = 

species  jump  condition  given  by: 
Pift-wJ-n^+Ppfvp-w)-^  =0  ,  i  =  1 
P/(v,  _w')*«1p  =0  ,  i  =  2,3,  ... 

Solid-Liquid  Boundary  Conditions 


(2.2.49) 

(2.2.50) 

(2.2.51) 

(2.2.52  -  2.2.53) 


The  boundary  conditions  for  the  solid-liquid  interface  are  identical  except  that  the 
phase  interface  velocity  is  given  by  w2  . 


j=N 

(vp-vP2)-«pa-  < 

% -%o  + 

Vo  +  £p  jajhj 
7=1 

•«op  • 

Pc(v0  -  v^Hop  +Pp(vp  -vv2)-«pa  =  0 

continuous  tangent  components  to  the  phase  interface  X: 


Vo  '  ^-ap  “  Vp  ‘^Po 


species  jump  condition  given  by: 

py-  ( vy-  -  w2 )  •  /^  +  p  a  ( vG  -  vv2 )  •  n0p  =  °  ,  j  = 1 

py(v/-w2)-«po=0  ,  j  =  2,3,  ... 


(2.2.55) 

(2.2.56) 

(2.2.58) 


Solid-Gas  Boundary  Conditions 

The  boundary  conditions  for  the  solid-liquid  interface  are  modified  even  more 
because  we  have  a  phase  interface  between  two  multi-component  phases.  The  phase 
interface  velocity  is  given  by  w} . 

Po^o(vo-vvi)  'nay  +  Py/ly(vy  Wj  j  *  /Jyj 


1 

£ 

•U* 

.111 

4o  +  LPjRJhj 
IL  7=1  J 

i* 

+ 

(fy  +  /J  PjUjhj 
;=i 
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(2.2.60) 


P  a  ( -  ^1 )  •  «oy  +  P  Y  ( _  ) '  V  =  0 

continuous  tangent  components  to  the  phase  interface  X: 

v0-X0Y=vy-XY0  (2.2.61) 

species  jump  condition  given  by: 

p/(v/  -vP1)-nOY+pi(v(  -M>i)-n1o=0  ,i  =  l  ,j  =  l 

Pj(vj-wl)-ncy=0  ,)  =  2,3,  ... 

Pi(vl-H>1)-v=0  ,  i  =  2,3,  ... 


Volume  Averaged  Equations 


Whitaker  uses  the  volume-averaging  approach  outlined  by  Slattery  [28]  so  that  many 
of  the  complicated  phenomena  going  on  due  to  the  geometry  of  the  porous  material  are 
simplified.  He  defines  three  averages: 

Spatial  Average:  Average  of  some  function  everywhere  in  the  volume. 

M  =  ^lvVdV  (2.65) 

Phase  Average:  Average  of  some  quantity  associated  solely  with  each  phase. 

(Ta)^lTcdV=llT.dV  (2.2.66) 


Intrinsic  Phase  Average: 

(T°)°=ylT°dV=Tl.T°dv 

o 


(2.2.67) 


We  can  also  define  volume  fractions  for  the  three  phases  as: 


(0  — 


Vg(t) 

V 


£p(0  = 


V'> 


v 


,  £y  (t)  —  ' 


V 


(2.2.68) 


We  now  have  the  volume  and  volume  fraction  of  the  solid  changing  with  time,  which 
is  not  the  case  with  Whitaker's  original  derivation. 


We  are  going  to  say  that  the  total  volume  is  conserved,  or  that: 
**Vo(f)+Vp(0+VT(0 

The  volume  fractions  for  the  three  phases  are  related  by: 
£o(0+ep(r)+eY(0=l 


(2.2.69) 


(2.2.70) 
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and  the  phase  average  and  the  intrinsic  phase  averages  are  related  as: 

Volume  Average  for  Liquid  (3  Phase 

We  will  first  look  at  the  volume  average  for  the  p  phase.  It  will  be  complicated 
because  of  the  three  different  phase  interface  velocities  which  we  must  now  include  in  the 
analysis,  whereas  Whitaker  only  had  to  account  for  the  single  liquid-gas  interface  velocity. 


The  continuity  equation  for  the  liquid  phase  is: 
-^■+V-(ppVp)  =  0 


(2.2.72) 


We  will  integrate  over  the  time-dependent  liquid  volume  within  the  averaging  volume, 
and  divide  by  the  averaging  volume  to  obtain: 


—  f  f  v.(PbvbW  =  o 

V%'){  dt  J  v\t) 

We  may  take  the  first  term: 

—  f  f^-W 

VK,){  dt  J 

and  apply  the  general  transport  theorem  [29]: 

—  f  \ifdV  =  [  r^dV+  f  \uv(s)-ndS 

dt  JV,*  Y  Jtf.s  Tit  Y 


(2.2.73) 


(2.2.74) 


We  note  that 


(2.2.75) 

(2.2.76) 


and  using  the  modified  general  transport  theorem  we  obtain: 


if 

vJym 


dpp 

V  ^  J 


uV  =  - 


dt 


(2'2'77) 


For  the  other  term: 

we  may  use  the  volume  averaging  theorem: 

(Vv„)  =  v(V|J)+i|^  +i  M/f^dA 


(2.2.78) 


(2.2.79) 
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(2.2.80) 


to  rewrite  the  term  as: 


?4/VpK=(v-(p^))= 

v-(ppvp>+^XVj<()ppvp -v^^vv" 

Whitaker  says  that  we  may  also  rewrite  the  time  derivative  term  as: 


(2.2.81) 


This  allows  us  to  rewrite  the  continuity  equation  for  the  liquid  phase  as: 


^  j  1 

^7 <Pp) + V - (Pp^p ) + Pp ( vp  - -^<44 +— pp ( vp  - w2 ) - =  °  (2.2.82) 


VJV 


We  may  assume  that  the  density  in  the  liquid  is  constant,  so  that: 

(ppvp)  =  pp(vp) 

/  \  (2.2.83  -  2.2.84) 

(pp)  =  £pPp 

The  liquid  velocity  vector  may  be  used  to  calculate  volumetric  flow  rates.  Whitaker 
gives  the  example  of  the  flow  rate  of  the  liquid  phase  past  a  surface  area  as: 

QV=\A(V$)'ndA  (2-2.85) 

The  two  constant-density  liquid  relations  given  above  allow  the  liquid  phase 
continuity  equation  to  be  rewritten  as: 

^ +v'^)+?^('p'*)'^‘M+iL('’p_,:i>2)^‘i4=0  <2-2-86> 


o'-'V 


The  thermal  energy  equation  for  the  liquid  phase  was  given  previously  as: 


(dho  A 

pP  =-y-% 


(2.2X1) 


Whitaker  notes  that  this  may  be  rewritten  by  adding  the  term  + V  •  (ppVp )  to 


the  left-hand  side  to  get: 

(pp^ ) + V  •  (pp/ipVp )  =  - v 
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(2.2.88) 


We  may  follow  the  same  procedure  used  previously  to  obtain  a  volume  averaged 
form  of  the  thermal  energy  equation  where  we  use  the  general  transport  theorem  for  the 
first  term  and  the  averaging  theorem  for  the  second  and  third  terms  to  get: 

j  1 

^{pp^)+v-(ppW>+-J^p^(vp-w)-^+-J^ps/,p(vs->i>2)^ 

=  -V  («p)+(®p)"ilv?P  (2.2.89) 

All  we  did  here  was  add  an  additional  term  to  Whitaker's  equations  due  to  the  solid- 
liquid  interface  velocity. 

Whitaker  uses  the  relation  for  the  enthalpy  of  the  liquid  phase: 

= v +^>p(7fs -re°)  <2-2-90) 

and  goes  through  several  steps,  accounting  for  the  deviation  and  dispersion  terms  from 
the  average  properties  (marked  with  a  tilde),  to  write  an  expression  for  the  two  terms: 

+ V '  {ppApVp)  =  tl,pt.(cp  )p  M- 


+pP[v+<c(.)p({3p)P-¥)J|f+v'(%> 


+Pp(cp)p(vp)- v(rp)15  +Pp(c/,)pV-(jpPp)  (2.2.91) 


u  cp  /  \ 

We  can  recognize  that  the  term:  / J 

is  contained  in  the  liquid  phase  continuity  equation: 


^+v.(vp}j+i|^(vp-»)npT^+lj^(vp-«>2)^<,<i4  =  0  (2.2.92) 


so  that: 


£+V-(t'p)  =  -{l|^(i>p-*).Spr<i4+IjAi_(fp-®2)^ 


(2.93) 


3 

The  expression  for  the  two  terms  '^'(pp^p)  +  ^7'(pp^pVp)  may  be  written  as: 

f(pp^)+V*(ppVp)  =  epPp(cp)p^-+PpMp(vp)-V(rp)P+pp(c/,)pV-(fpfp) 


-  v  >pf  (rP>p  “  rP°  )1  pp(^p  ~  + ^  Ja^  pp  "  ^2) ' 


(2.2.94) 
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We  may  now  substitute  back  into  the  thermal  energy  equation  for  the  liquid  phase: 
dll'  B 

epPp(cp)p-^— 1 ■Pp(cp)p(^p)'v(7p)  +Pp(c/>)pv’(^p) 

^L^P^P^P  "rP°)(^  ~^\n^dA 

J*v pp  (Cp)p  (rp "  rp°^p  ” ’  ^adA 

-wi\hcdA 

=  -V-(?p)+(0p)~J^5p-^~|v?p-%a^  (2.2.95) 

Whitaker  now  uses  Gray's  definitions  of  the  point  functions  for  the  phase  properties  [30] 
as: 


This  allows  the  liquid  phase  thermal  energy  equation  to  be  written  as: 

dlT  'f 

eppp(cp)p  +pp(cpV{ilii)'v(rp)  +Pp(c/>)pv'{7liiip} 

+£l^pp(cPe#is-4fWM 

+^Leopp(cp>pfp(% -*2)- v44 

=-V(9f)+h)-^^-%  (2-2-97) 

Whitaker  now  rewrites  the  heat  flux  term  -V  -(<7p)  using  Fourier's  law 
(%  =  -£pV!Tp)  and  the  averaging  theorem  to  write: 

(2-2-98) 
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We  may  also  substitute  the  intrinsic  phase  average  temperature 
for  the  phase  average  temperature  to  obtain  an  expression  for  the  heat  flux  vector: 

(%} = ^ =-*p[v(ep(I(>>P)+^  Tt\dA_ 


(2.2.99) 


The  thermal  energy  equation  for  the  liquid  phase  may  now  be  written  as: 


£ppp  <cP  )fi  ^  +pp  MoW  ’  v(rp)P + Pp  (Vp  v '  ( Vp ) 
=v.{^[v(ep(rp)p)+iJvV+l^rpH(id4 


(2.2.100) 


Volume  Average  for  Gas  y  Phase 

The  gas  phase  continuity  equation  is  identical,  up  to  a  point,  to  the  continuity 
equations  for  the  solid  and  liquid  phases: 

|-(pT)+v-(pTvT)+^J^pT(vT-<p)-aI1)^+i|iVpT(vr-»i)-aI<!ii4=0  (2.2.101) 

For  the  liquid  and  solid  phases  we  could  assume  constant  density,  and  simplify  the 
equation  further,  we  can’t  do  this  for  the  gas  phase  since  the  density  depends  on  the 
temperature  and  the  pressure. 

Whitaker  uses  Gray's  expressions  for  the  point  functions  again,  along  with  the 
definition  of  the  intrinsic  phase  average  to  rewrite  the  gas  phase  continuity  equation  as: 

|(eT(pT)1,)+v{(pr)1'{vr})+V.{p^r) 

1  1 

^a)P'i4+yIvpr(iir-#1)-flio<:M  =  0  (2.2.102) 

Whitaker  then  assumes  we  can  neglect  terms  with  products  of  the  dispersion  or 
deviations,  so  we  can  drop  that  term  to  write  the  gas  phase  continuity  equation  as: 
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|(eT(pT>T)+v((pT)T(vT))+^J<vPT(vT-»>)-aip<i4 

+^IvPy(^-^i)-V'M  =  0  (2.2.103) 

Since  the  gas  is  a  multi-component  mixture  we  must  also  go  through  the  species 
continuity  equation: 

(p/ ) + v - <P/ Vi > -*- ^7 p/ ( Vf  - vv) - ^ p(( v(-  - vPx )- =  0  i  =  1,2,  ... 

(2.2.104) 

Whitaker's  derivations  may  be  used  directly,  and  we  can  write  the  final  form  of  the 
gas  phase  species  continuity  equation  as: 

J”(eY<P<)T ) + V  •  ((P/)Y(v/>)+^7  P;(v;  -  w)  ■  n^dA+^\A^  p,(v;  “  *))•  n^dA 

(2.2.105) 

If  we  neglect  the  deviation  terms,  and  if  we  also  consider  only  the  species  continuity 
equation  for  the  vapor  component  (component  1),  we  can  rewrite  the  gas  phase 
continuity  equation  as: 


f(eT<Pi>1')+v((Pi)T('ir»+^IvPi(i,i-i!>)-")|s‘i4_V'' 


(2.106) 
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The  corresponding  thermal  energy  equation  for  the  gas  phase  may  also  be  written  as: 

-VJ^  Sp<  (CpWto 

+4l,(c<.).(pifr)+vI,(cP.'(P^fr) 

df  i=l  (=1 

= V-|*V  v(EY{rr)  J + i71ap TinpdA +yl.isTYn-fidA  J 

-^VV^J^VV1  (2.2.107) 

Volume  Average  for  Solid  a  Phase 

The  volume  averaging  procedure  for  the  liquid  phase  was  made  general  enough  so 
that  the  same  equations  also  apply  for  the  solid  phase.  The  only  differences  are  that  now 
the  phase  interface  velocities  are  w2  for  the  solid-liquid  interface,  and  wx  for  the  solid-gas 
interface.  We  also  need  to  account  for  the  species  continuity  equations.  Since  the  two 
components  (liquid  and  the  solid)  are  assumed  to  have  a  constant  density,  we  will  not 
run  into  the  same  complications  we  did  with  the  gas  phase  continuity  equation.  The 
appropriate  subscripts  for  the  solid  phase  also  need  to  be  added  to  the  equations. 

We  cannot  assume  that  the  solid  phase  density  is  constant,  since  it  is  a  mixture  of  the 
solid  and  the  liquid  component.  However,  it  will  be  less  complicated  than  the  gas  phase 
density  since  we  can  assume  that  each  component's  density  is  constant. 

The  solid  phase  continuity  equation  is: 

3  1  1 

^(Pa> + v*(PCTvCT>+— (vc  -  wi)  •  n^dA +- j |  (vc  -  w2 )  •  n^dA  =  0  (2.2. 108) 

and  the  species  continuity  equation  is: 

^<P/)+V-(p/v/)+^J^(v;-»l)  VM+^|w(v/-i!>2)-Sopd4  =  0  j  =  l.  2,  ... 

(2.2.109) 


-w)-n^dA 

-wJ-n^dA 
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We  can  follow  the  same  derivation  used  for  the  gas  phase  to  write  the  gas  phase 
continuity  equation  as: 

+^7  Pg(^o  ~Wi)-n(jydA  =  0  (2.2. 


110) 


and  the  final  form  of  the  solid  phase  species  continuity  equation  is: 

|(^<P;T)+V(<Pyr{v;))+^L  P/(v;— «2)-^+^l,Py(P;— 


=v- 


(Po)°®c 


f  P;  ^ 

L  v(Pa)  2J 


•(p  A) 


j  =  1*2, 


(2.2.111) 


If  we  want  to  just  follow  the  single  liquid  component  (component  1)  and  write  the 
continuity  equation  for  that  species,  we  may  write: 

|:(ea<Pi>G)+v-((pi)°ft))+^JA^Pi(vi-%)-«0p^+^J^Pi(vi-w1)-«oy^ 


=  V- 


<V3\ n 


(PoT%v 


(  M 
Pi 


(Pa) 


vv  a/  )) 


(2.2.112) 


Later  on,  we  may  also  want  to  assume  that  the  solid  velocity  is  zero,  so  we  could 
rewrite  the  solid  phase  continuity  equation  as: 

^(ea(Pi)°)+^J^Pi(vi-w2)-naptM+^J^p1(v1-wJ-«oy^ 


V3^ 


<V  3  Kt{ 


=  V- 


(pa)°2>aV 


(  M 
Pi 


(Po) 


\\ro/  )) 


(2.2.113) 
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The  corresponding  thermal  energy  equation  for  the  solid  phase  may  also  be  written 
as: 

■  JS(p;)^);}^+{i^)J(p/i)}-' V(T°)° 

1>1  J  m  U=1  J 

1  i=N 

1  j=N 

+■^7  ^(cp)j(PjTo)  +  y '  ^(cp);(py^o) 

01  j= 1  7=1 

=  V  |*o  V(eo(ro}  ) +  V  ^  ■r°"<r'<i4  +  V  ^"op^4  J 

“  ~  ^  L*  ?» '  ^  <2-2-114) 

This  completes  the  continuity  and  thermal  energy  volume  averaged  equations  for  all 
three  phases.  The  various  continuity  equations  are  given  in  several  forms,  depending  on 
whether  we  want  to  include  the  solid  velocity,  and  whether  we  just  want  to  use  the 
continuity  equation  for  the  liquid  component  only,  since  it  is  the  only  species  which  is 
transferring  between  the  three  phases. 

2.3  Total  Thermal  Energy  Equation 

The  three  phases  are  assumed  to  be  in  local  thermal  equilibrium  so  that: 

{tc)°  =(r1)T  (2.3.1) 

<j-)Ee<,(r<t)<’+e|i(rp)|5+eY(rr}Y  ={Ta)°  =(rr)T  (2.3.2) 

We  can  now  write  the  total  thermal  energy  equation  by  adding  together  the  thermal 
energy  equations  for  each  phase,  and  using  the  local  thermal  equilibrium  relations  given 
above.  This  equation  is  identical  to  Whitaker's,  except  for  the  addition  of  extra  terms 
due  to  the  solid-gas  and  solid-liquid  phase  interface  velocities,  which  are  no  longer  zero. 
The  equation  is  also  written  so  positive  flux  terms  imply  liquid  evaporating  into  the  gas 
phase,  rather  than  condensing. 
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U=1  J 


i~N 

^+epPp(C/,)  +eT  £<p,)(cp). 

1=1 

i-N 


3(r> 


St 
V(T) 


+  S(cp),(pj'ij}+p?(<;/.)|)(i;ii)+ E(c/>),( ta) 

J= 1  7  H  i=l 

j  J=W  j  /=// 

+  y L  SPi(cf)/«(ii»-*r)'^  +- J  Sp.-M-I'tO*  -  *!)•  V44 


.  .  _  i  .  i=tf 

'k’J4rr  'O'  *' 

1  ^  -  1 

+^Lop  SPi(cp)^o(vo~w2)-nop^+— |4^Pp(cp)p7p(vp  -w2)-/ZpacW 

+^pp(Cp)pfp^p -4VW+£jAtf  Sp/^X^^-w).^ 


=  V- 


V[(^60  +  &p£p  +  kyZy  )(^r')j 

+(*°  ~h)l^\A^  W*4 
+(kv-ky)^TWydA 

+(kc-ky)— j ^  Tyii^dA 

“i-L  ^ -vw~L  ■  v^L  vm4 


(2.3.3) 


Whitaker  defines  a  spatial  average  density: 


<P>=^'S<P;r^P(pP)P«rI(P.)r 

M  *=i 

and  a  mass  fraction  weighted  average  heat  capacity  by: 

•.IhTMj +Eppp(cp)ft+eT 

r  -  L± _ 

(p) 


i=N 


(2.3.4) 


i=l 


(2.3.5) 


This  allows  the  first  term  in  the  thermal  energy  equation  to  be  written  as: 


j=N  ]  p=tf  1 ' 

eo‘  X\P;)(cp);-  >  +  £pPp(cp)p+ev  jX(P«)(cp);j 


d(T) 


=(p  )c, 


S(T) 


St  ~^p~sT  <23  6> 
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We  must  now  consider  the  interphase  flux  terms  in  the  total  thermal  energy  equation. 
In  Whitaker's  derivation,  he  only  had  one  interphase  flux  term  to  consider,  that  of  the 
exchange  of  mass  between  the  liquid  and  the  gas.  We  now  have  two  more  interphase 
fluxes  to  consider:  that  between  the  liquid  and  the  solid,  and  that  between  the  gas  and  the 
solid. 

We  first  follow  his  derivation  for  the  liquid-gas  interface,  and  then  apply  it  to  the 
other  two  interfaces. 


The  jump  boundary  condition  for  the  liquid-gas  interface  was  shown  previously  to 


be: 


Ppfy(V^)^+PY^(V*)**YP~  I 


tfp-%y 


i=N 

«t+2pa* 

1=1 


(2.3.7) 


and  this  may  be  rewritten  as: 

i=N 

pp/jp  (vp  ~  w)  •  «py  +  X P A  ft  " *) '  *yP  =  -(?p  - qy)  •  nj* 


(2.3.8) 


i= l 


The  jump  boundary  condition  for  the  solid-gas  interface  was  shown  previously  to  be: 

P aha  fta  ~  ^1 )  ‘  «<yy  +  Py^  fty  "  ) *  V 


j=N 

i=N 

& + Xp/A 

*  Hq y  + 

qy  +  2P  M- 

I  M 

;= i 

j 

and  this  may  be  rewritten  as: 
j=N  _  i=N 

Xpy/t7(vy-w1)-«^  +  XPAft-^i)-V=-feCT-^)-nOY 

j= 1  i=l  V  ’ 


(2.3.9) 


(2.3.10) 


The  jump  boundary  condition  for  the  solid-liquid  interface  was  shown  previously  to 


be: 


1 

_ 1 

XD 

1 

xz> 

Q 

II 

1 

%  a  + 

1 

I^T 

laT 

hs 

+ 

IS* 

_ 1 

*«oP  ’ 

(2.3.11) 


This  may  be  rewritten  as: 


j=N 

”op+PpAp(ffp-^2)se«  =  -(§cf-§p)-«ap  (2.3.12) 
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Using  these  results,  we  may  write  the  interphase  flux  terms  in  the  total  thermal 
energy  equation  as: 

1  11 


VJAj3 


=+vSu  £p>*;(V^)-^+PiW-®i)'V  dA 


i =/v  _ 

Vp  -  w)  •  /Jpy  +  X  P  A  ft-  -  vi>)  -  dA 


\  f  J  1  _  ,=/V  — 

+tJ,  EpA(^~#i)‘V  +  XpA(^"^i)’V  ^ 

K  ^  /•=!  1=1 


(2.3.13) 
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The  total  thermal  energy  equation  is  now  written  as: 
j=N  i=N 

(p^j)  ■*-Pe(c/.)p{sp)+  S(t>X<p-'5.) 


«•?* 


V(T) 


-If  ■ 


j—N  -i 

i[hr(cp)jt°yr*ir,l<$ 

I  r  "j 

[+Pp[*p  -  (cp  )p  ip  J(vp  -  >P2)  •  ^ 


[pp  [*p-(cy)|Jfp](%-0)-HPr 
,=Ar  r-  - 1 


\dA 


-if 

<vh 


■If 


i=i 


’%p\_hr{cp)jT^\vi-^)< 

i=N  _  , 

Sp,|4- -{cp)^pi  -  W|)-  v 


k£4 


•<£4 


V[(*aeo  +  *pep  +  *y£Y  )(7’)] 

+(t»-*p)ilvr»B»p‘i4 

♦(V^J^pV44 

+(^o  ~  )  y  {4^  ^Y^oy^4 


(2.3.14) 


Next,  we  can  begin  to  express  the  phase  interface  velocities  in  terms  of  enthalpies  of 
vaporization,  sorption,  and  desorption. 
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The  enthalpies  for  each  phase  were  defined  previously  as: 


VV4>),(r.-V) 

*p=V+(^)p(rp-rp") 

S-V+(*,),(V  Ty) 


We  also  know  that  the  intrinsic  phase  average  temperatures,  temperature  dispersion, 
and  overall  average  temperatures  are  related  by: 

fY=(rY}Y-ry  (2.3.18-2.3.21) 

(r<,>0={rp)p=<rT)T=(r) 


We  may  use  these  relations  to  rewrite  the  integrands  inside  the  volume  integrals  on 
the  left  hand  side  of  the  total  thermal  energy  equation.  Whitaker  gives  the  result  for  the 
liquid-gas  interface  as: 


From  the  species  jump  conditions: 
p/(vI-vP)-n7p  +  pp(vp-w)-^Y=0  ,  i  =  l 
pi(v,  -w)-nYp  =  0  ,  i  =  2,3,  ... 


(2.3.23  -  2.3.24) 


where  the  subscript  1  refers  to  the  component  (water)  which  is  actually  crossing  the 
phase  boundary  as  it  goes  from  a  liquid  to  a  vapor. 

From  the  species  jump  conditions  we  may  also  write: 

Pl(vi -w2)-na p  =-pp(vp -h>2)'%o  (2.3.25) 
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We  may  rewrite  the  integral  as: 

V  ^  +[Asi  -(cf )1(<r>-Jr)]pi(i'i  -*)•*# 


—if 

J/ 


VJ^iy 


■dA 


Ki-q+i'rUW-T;) 


(2.3.26) 


We  may  use  the  following  definitions: 

Ahvap  (at  temperature  (T))  =  |  h°gl-t§  +  (cp  )x  ((r)  -  Ty )  -  (cp )p  (<T)  -  7J )  |  (2.3.27) 

<^)=^pp(v4vM 


(2.3.28) 


to  rewrite  the  integral  as: 

J  Pp[% -• 

V  A*'  ^ 
1=1 


dA  =  Ahvap{mlv) 


(2.3.29) 


The  corresponding  terms  for  the  phase  interface  between  the  solid  and  the  liquid  are 
identical,  except  that  we  no  longer  use  the  quantity  Ahyap  ,  but  instead  use  the  differential 
enthalpy  of  sorption  [31],  which  we  will  give  the  notation  Qt  .  The  differential  heat  of 
sorption  is  the  heat  evolved  when  one  gram  of  water  is  absorbed  by  an  infinite  mass  of 
the  solid,  when  that  solid  is  at  a  particular  equilibrated  moisture  content.  This  is  very 
similar  to  the  heat  of  solution  or  heat  of  mixing  that  occurs  when  two  liquid  components 
are  mixed.  For  textile  fibers  there  is  a  definite  relationship  between  the  equilibrium 
values  of  the  differential  heat  of  sorption  and  the  water  content  of  the  fibers,  and  we  can 
use  those  relationships  in  our  thermodynamic  equations  which  will  be  discussed  in  a 
later  section. 
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(2.3.30) 


The  solid-liquid  interface  integral  term  is  thus  given  as: 


f  I  •- 


From  the  species  jump  conditions  we  may  also  write: 
Pl(vi-w2)-»oP  =-pp(vp-vP2)-«po 

We  may  rewrite  the  integral  as: 

l  r  > 

- J  I  I 

V  **  ]pp(vp-fl>2)-n03 


(2.3.31) 


={[^-^+(cp)fl((r>-r^)-(cp)p({r>-r?-)]}ij^P4vp-ff2)-^  (2.3.32) 


We  may  use  the  following  definitions: 


a  (a  temperature  <T»  =  [%  -/£ +(c,), {{T)-T’) -(cp)p((r) - 
<«./)  =  Pefr.-'PrJ-'teptM 


to  rewrite  the  original  integral  as: 


(2.3.33) 


(2.3.34) 


‘  'jfb' "  (cf  )/°](V 4Pp[>  " 


=  &(*„>  (2-335) 


For  the  gas-solid  interface,  the  heat  of  desorption  for  the  vapor  is  equal  to  the  energy 
required  to  desorb  the  liquid  plus  the  enthalpy  of  vaporization  required  to  evaporate  the 
liquid: 

+  (2.3.36) 


The  derivation  is  exactly  the  same  as  for  the  other  two  interfaces,  where  the  only 
component  crossing  the  phase  interface  is  component  1  (water)  and  we  may  write  the 
integral  as: 


%<>i[kj-(cp)jf°)yi +  !>[*;  “(«(.),  -0i)' V 


m 


=  (Ql  +  Ahvap)(msv) 


(2.3.37) 


For  these  equations  (fhs!)  is  the  mass  flux  desorbing  from  the  solid  to  the  liquid 

phase,  (m^)  is  the  mass  flux  desorbing  from  the  solid  into  the  gas  phase,  and  (rh!v)  is 

the  mass  flux  evaporating  from  the  liquid  phase  to  the  gas  phase. 

The  total  thermal  energy  equation  now  becomes: 


<p)c, 


3£> 

3( 


j=N  i=N 

2  (c^ ) ,  (py’V ) + Pp  (cp  )a  (^ ) +  S  (cp  ),  <P.JiV ) 

|_/=1 


i'=l 


v(r) 


+Ahvap(mlv)+Qi{msi)+(Qi  +  Ahvap)(msv) 


V[(*o£o  +  *0£p  +  *yZy)(T)\ 

+(kt-ky)^!^1h!>dA 

+(^c  "  TyBaydA 


(2.3.38) 


We  may  simplify  the  total  thermal  energy  equation  based  on  an  effective  thermal 
conductivity,  and  write  our  total  thermal  energy  equation  in  a  much  shorter  form  as: 


+Ahvap(mlv)+Qi(msi) + (<2/  +  A Kap)(™sv) 

=  V-(/^-V(r»  (2.3.39) 
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The  effective  thermal  conductivity  can  be  expressed  in  a  variety  of  ways  as  described 
by  Whitaker,  depending  on  the  assumptions  you  choose  to  make  about  the  isotropy  of 
the  porous  medium,  the  importance  of  the  dispersion  terms,  etc.  The  effective  thermal 
conductivity  is  also  an  appropriate  place  to  include  radiative  heat  transfer,  and  one  could 
add  an  apparent  radiative  component  of  thermal  conductivity  to  the  effective  thermal 
conductivity  to  account  for  radiation  heat  transfer. 

2.4  Thermodynamic  Relations 


The  gas  phase  is  assumed  to  be  ideal,  which  gives  the  intrinsic  phase  partial  pressures 
of  the  gas  phase  as: 

(ft}T=<Pi)T*<n  >  =  1.2.-  (2.4.1) 

We  also  have  the  relations  for  the  gas  phase,  where  for  our  case  component  1  is 
water,  and  component  2  is  air: 


(PY)Y=<Pl>r+(p2>r 
(Pyf  ={PlY  +(P2)y 


(2.4.2  -  2.4.3) 


We  must  also  connect  the  differential  heat  of  sorption,  Qr  with  the  concentration  of 
water  in  the  solid  phase.  An  example  of  a  general  form  for  Q,,  ( in  J/kg)  can  be 
expressed  as  a  function  of  the  relative  humidity  <|>  [32]. 


Q  (J  /  kg)  =  1.95  x  105(1  -  <))) 


1 


1 


(0.2  +  <t>)  (1.05-<t>) 


Ps  Ps 


(2.4.4) 


Relative  Humidity  <(» 

Figure  4.  Generic  differential  heat  of  sorption  for  textile  fibers  (sorption  hysteresis 
neglected). 
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We  must  connect  the  differential  heat  of  sorption  with  the  actual  equilibrium  water 
content  in  the  solid  phase.  For  the  two  component  mixture  of  solid  (component  2)  plus 
bound  water  (component  1)  in  the  solid  phase,  the  density  of  the  solid  phase  is  given  by: 

(Pc)0  =  (Pi)a  +(P2)°  (2.4.5) 

We  could  make  the  assumption  that  mass  transport  in  the  textile  fiber  portion  is  so 
rapid  that  the  fiber  is  always  in  equilibrium  with  the  partial  pressure  of  the  gas  phase,  or 
is  saturated  if  any  liquid  phase  is  present  This  would  eliminate  the  need  to  account  for 
the  transport  through  the  solid  phase  at  all.  There  are  a  variety  of  sorption  isotherm 
relationships  we  could  use,  including  the  experimentally-determined  relationships  for  a 
specific  fiber  type,  but  a  convenient  one  is  given  by  [32]. 

1  1  1 

(0. 25 + <j>) +  (1. 25— <J>)  (2A6) 


Regain  ( R )  =  Rf( 0.55<j)) 


Rf  is  the  standard  textile  measurement  of  grams  of  water  absorbed  per  100  grams  of 
fiber,  measured  at  65%  relative  humidity.  We  may  rewrite  this  in  terms  of  the  intrinsic 
phase  averages  for  our  two  phases  as: 


(  /  \y  ^ 


R 


(piY 


lOO(p2)0  J\ 

r  *  j 

U>>1 

’  T  “ 

fl.25»Tl 

A  A  J 

Ps 

\  s  / 

(2.4.7) 


If  we  don't  want  to  make  the  assumption  that  the  solid  phase  is  always  in  equilibrium, 
we  may  use  relations  available  between  the  rate  of  change  of  concentration  of  the  solid 
phase  and  the  relative  humidity  of  the  gas  phase,  an  example  of  which  is  given  by 
Norden  and  David  [33]. 

We  may  also  write  the  vapor  pressure-temperature  relation  for  the  vaporizing  (3 
phase,  which  Whitaker  gives  for  porous  media  as: 


(Pi)7  =  Pi  exp 


2oPr  1 

^^Kap 

fj_.il 

R\ 

l(T)  T.) 

(2.4.8) 


This  relation  gives  the  reduction  or  increase  in  vapor  pressure  from  a  curved  liquid 
surface  resulting  from  a  liquid  droplet  influenced  by  the  surface  interaction  between  the 
solid  and  the  liquid,  usually  in  a  very  small  capillary. 

In  many  cases,  the  Clausis-Clapeyron  equation  will  be  sufficiently  accurate  for  the 
vaporizing  species,  and  the  gas  phase  vapor  pressure  may  be  found  from: 


(A)Y=Aexp< 


&Kap 

Ri 


Un  T.y 


(2.4.9) 
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This  vapor  pressure-temperature  relation  is  only  good  if  we  have  the  liquid  phase 
present  in  the  averaging  volume.  We  may  also  have  the  situation  where  we  only  have 
the  solid  phase,  containing  adsorbed  water,  and  the  gas  phase.  To  get  the  vapor  pressure 
in  the  gas  phase  in  this  situation,  we  will  use  the  sorption  isotherm,  and  assume  that  the 
gas  phase  is  in  equilibrium  with  the  sorbed  water  content  of  the  solid  phase. 

We  can  use  any  isotherm  relation  where  we  have  the  solid  water  concentration  as  a 
function  of  relative  humidity.  The  equation  given  previously  is  one  example: 


£o/P/ 

(l  ~  £o/  )Pi 


=  R 


f 


0.55 


1 

1  . 

1 

Ps  J 

fo.25>>1 

I 

fl.25-<ft>Yl 

A  A  J 

1  A  J 

(2.4.10) 


2.5  Mass  Transport  in  the  Gas  Phase 


The  volume  average  form  of  the  gas  phase  continuity  equation  was  found  to  be: 


and  the  species  continuity  equation  was  given  as: 


f(%(Pl)T)+V(<Pl)1'{vi))+^LPl(vi-vP)-aiP<i4-V-| 


(p^V 


(2.5.1) 


f  \ 

(P/)Y 


(Pv)1 


where  the  dispersion  and  source  terms  were  dropped  from  the  equation. 


Y 

W ?/  J J 
(2.5.2) 


If  we  use  the  definition  of  the  mass  flux  from  one  phase  to  another  as: 

RH^PetV^V44  (2.5.3) 

or 

'rtV^'V44  .  (2.5.4) 

with  the  same  form  for  the  mass  flux  from  the  solid  to  the  gas  phase,  the  gas  phase 
continuity  equation  may  be  rewritten  as: 

|:(£Y(p7)Y)+v{(pY)Y{vY))  =  (mh,)+(mw>  (2.5.5) 
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For  the  two  species  (1— water,  and  2-air),  the  species  continuity  equations  are  written 
(again  dropping  the  source  and  dispersion  terms)  as: 


2 

dt 


(ey<Pi>Y)+V-((Pi)Y(^))-(/”A')-(<)  V| 


(2.5.6) 


(2.5.7) 


If  we  again  ignore  the  effects  of  the  dispersion  terms  in  the  diffusion  equations 
derived  by  Whitaker,  we  may  incorporate  an  effective  diffusivity  into  the  species 
continuity  equations,  which  are  now  given  as: 


Jt  (ey<Pi>Y)+v-((Pi)Y(i?y))-(^)-<<)~V‘ 


(2.5.8) 


|K<P2>Y)  +  V-«P2>Y(vy)) 


(2.5.9) 


The  effective  diffusivity  will  be  some  kind  of  function  of  the  gas  phase  volume  e;  as 
the  solid  volume  and  the  liquid  volume  fractions  increase,  there  will  be  less  space 
available  in  the  gas  phase  for  the  diffusion  to  take  place.  We  might  try  to  define  the 
effective  diffusivity  as: 


X  X 


(2.5.10) 


where  the  effective  diffusivity  Deff  is  related  to  the  diffusion  coefficient  of  water  vapor 
in  air  (DJ2  or  DJ  divided  by  the  effective  tortuosity  factor  x. 

An  example  of  a  good  relation  for  the  binary  diffusion  coefficient  of  water  vapor  in 
air  is  given  by  Stanish  [34]  as: 


A2  - 


(  2.23 

f  T  1 

1273. 15 J 

vl.75 


(mks  units) 


(2.5.11) 


To  simplify  matters,  one  could  assume  the  tortuosity  factor  to  be  constant,  and  let  the 
variation  in  the  gas  phase  volume  take  care  of  the  change  in  the  effective  diffusion 
coefficient  as  the  volume  available  for  gas  phase  diffusion  changes  with  solid  swelling 
and/or  liquid  volume. 


38 


Another  simplification  is  to  only  account  for  the  water  vapor  movement,  so  the 
continuity  equation  would  become: 


|:(eY<Pi)Y)+v(<Pi>Y(^))“(^)-<<) 


(2.5.12) 


2.6  Gas  Phase  Convective  Transport 


It  is  important  to  include  forced  convection  through  porous  media  since  this  can  be  an 
important  part  of  the  transport  process  of  mass  and  energy  through  porous  materials  with 
high  air  permeability. 

It  is  not  necessary  to  modify  any  of  Whitaker's  derivations  for  the  gas  phase,  and  if 
we  neglect  gravity,  we  may  write  the  gas  phase  velocity  as: 

(^)  =  -^Kr-{£7[v(Pr-Po)1']}  (2.6.1) 

where  the  permeability  tensor  is  a  transport  coefficient. 

There  are  other  methods  to  obtain  an  estimate  of  the  convective  velocity  of  a  gas  flow 
through  a  porous  material.  It  may  be  desirable  to  use  one  of  these  other  relations  to 
obtain  the  volume  average  form  of  the  gas  velocity. 

For  example,  we  could  start  directly  with  Darcy's  law: 


VP+-£vy=0  (2.6.2) 

and  assume  that  for  the  dry  porous  material  we  have  available  the  experimental 
measurement  of  the  specific  permeability  coefficient  K,  and  then  modify  it  to  account  for 
the  decrease  in  gas  phase  volume  as  the  solid  phase  swells  and/or  the  liquid  phase 
accumulates.  We  could  make  the  variation  in  K  a  function  of  the  gas  phase  volume, 
which  has  been  an  approach  used  by  Stanish  et.  al.  [34]. 

— '  (2.6.3) 


'dry  J 


This  is  a  very  simple  model,  and  may  be  improved  upon.  In  the  book  by  Dullien 
[35],  there  are  a  variety  of  relationships  for  how  K  varies  with  porosity;  some  of  those 
relations  may  be  more  realistic  for  our  purposes.  We  could  also  relate  the  change  in  the 
permeability  to  the  effective  tortuosity  function  x,  which  also  has  the  same  factors 
related  to  the  decrease  in  gas  phase  volume,  and  change  in  geometry,  that  we  need  to 
account  for  the  Darcy's  law  relation  for  convective  gas  flow. 
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2.7  Liquid  Phase  Convective  Transport 

Whitaker's  derivation  for  the  convection  transport  of  the  liquid  phase  is  the  one  of  the 
most  complicated  parts  of  his  general  theory.  He  accounts  for  the  capillary  liquid 
transport,  which  is  greatly  influenced  by  the  geometry  of  the  solid  phase,  and  the 
changeover  from  a  continuous  to  a  discontinuous  liquid  phase.  His  eventual  transport 
equation,  which  gives  an  expression  for  the  liquid  phase  average  velocity  is  quite 
complicated,  and  depends  on  several  hard-to-obtain  transport  coeffients.  The  final 
equation  is  given  as: 

(%)  =  -  {^Vep  +  ^(r>V(r)-(pp-pY)]  (2.7.i) 

^P  J 

(symbol  definitions  given  in  nomenclature  table) 

One  advantage  of  Whitaker's  derivation  is  that  it  is  almost  completely  independent  of 
the  other  transport  equation  derivations.  This  should  mean  that  we  may  use  another 
expression  for  the  liquid  phase  velocity  if  we  find  one  that  is  more  amenable  to 
experimental  measurement  and  verification. 

An  example  of  an  equation  which  is  more  empirical  is  again  given  by  Stanish  [34]. 
The  velocity  is  assumed  proportional  to  the  gradient  in  pressure  within  the  liquid.  The 
pressure  in  the  liquid  phase  is  assumed  to  be  the  sum  of  the  gas  pressure  within  the 
averaging  volume  minus  the  capillary  pressure  (P^: 

(%)  =  -  ^-V(te)T  +  (P2>Y-^)  (2.7.2) 

v^P  ) 

If  we  use  a  relation  of  this  kind  it  is  necessary  to  obtain  an  equation  for  the  capillary 
pressure  as  a  function  of  the  fraction  of  non-solid  volume  occupied  by  the  liquid  phase, 
as  well  as  a  relation  for  the  variation  in  the  permeability  coefficient  as  a  function  of 
liquid  phase  volume  fraction.  It  is  also  necessary  to  to  determine  when  the  liquid  phase 
becomes  discontinuous  so  that  liquid  flow  ceases  at  that  point.  These  types  of  relations 
can  be  determined  experimentally  for  materials  of  interest,  or  they  may  be  found  in  the 
literature  for  quite  a  wide  variety  of  materials. 
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2.8  Summary  of  Modified  Transport  Equations 

The  set  of  modified  equations  which  describe  the  coupled  transfer  of  heat  and  mass 
through  hygroscopic  porous  materials  are  summarized  below. 

Total  thermal  energy  equation  (2.8.1) 


<p)C„^+ 


'p  3 t 


'XM/pA) 

7=1 


+Pp(cc)|)(i,p)  l'v<r> 

+X(c?)i(Pi,’i> 

L  «=l 

+A Kap (™/v )  +  Ql {msi )  +  {Ql+  A Kap )(^)=V- (K^ff  ■  V(T)) 
Liquid  phase  equation  of  motion 

Liquid  phase  continuity  equation 

which  may  be  rewritten  as: 

fe+y./%u(W-fr»».0 

dt  '  P/  Pp 


Gas  phase  equation  of  motion 


V^Y 


Gas  phase  continuity  equation 

^(eY(pY)Y)+V^(py)Y(vY)j=(m/v)+(<) 


(2.8.2) 

(2.8.3) 

(2.8.40 

(2.8.5) 

(2.8.6) 
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Gas  phase  diffusion  equations 


d_ 

dt 


2 

dt 


(eY<pi)7)+v-((pi>Y(iv))~(^)_(<) v i 


(py)t®#v 


(Pr> 


V\r^/  J J 


Kwww’Wn 


(pr)T%V 


f  y  W 

(P2>T 


,(Pr>T, 


Solid  phase  density  relations 

w-tPij'+for 

Pi =  £clPl 
?2  =  (l_eaI,)P5 

£oS  +  £oL=1 

Sc>//<i  phase  continuity  equation 

|’(£a(Pa)O)+V-((Po>O(vcI))+<^/)  +  (^>  =  0 


Solid  phase  equation  of  motion  (for  one  dimensional  geometry) 
1  r%d 


Solid  phase  diffusion  equation  (for  vaporizing  component) 

|(£«(Pi>'’)+v'«Pi>',<Pi))+{'i-s/)+(«»)=Vj(P<’)'’®»7 


'ML] 

.Wjj 


Volume  constraint 

(0  +  (0  £y  (0  =  1 

Thermodynamic  relations 

{pi)y={Pi)yRi(T) 

{Pi)y  ={9i)y  Ri{T) 

(pY)Y=(Pi)Y+<P2)Y  (2.8.17 

(pyf  ={Pl)y +{Pl)y 


(2.8.7) 


(2.8.8) 


(2.8.9  -  2.8.12) 


(2.8.13) 


(2.8.14) 


(2.8.15) 


(2.8.16) 


-  2.8.20) 
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If  any  liquid  phase  is  present,  vapor  pressure  is  given  by: 
( PiY  =  Pi  exP1  “I  I . - . \+—7r~\  —~—\\r  or 


0/T  > 
2<JPy 

ri  ijf 

Rl 

(Pi)Y  =  Pi  exp 


•ap 


/?, 


1  1 


{T)  T0 


(2.8.21) 


If  the  liquid  phase  is  not  present,  and  the  liquid  component  is  desorbing  from  the 
solid,  the  reduced  vapor  pressure  in  equilibrium  with  the  solid  must  be  used.  This 
relation  may  be  determined  directly  from  the  sorption  isotherm  for  the  solid: 

{PiY  =  f{Ps’PbPs’&cL)  at  the  temperature  (T)  ,  only  eoL  is  unknown  .  (2.8.22) 


Sorption  relations  ( volume  average  solid  equilibrium) 

f  \ 

(  t  \y\ 


Qsl  (J/ kg)  =  0.195 


Ps 


1 


1 


0.2+M 

Ps 


(  / -a ' 

1.05-^- 


Ps 


J) 


(2.8.23) 


(Pi) 


(P2)°  (1_£o/)Pi  1 

{  Ps  J 

(0.2SM) 
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\  P*  J 

l  *  j 

(2.8.24) 


This  is  a  total  of  20  main  equations  and  20  unknown  variables,  which  should  allow 
for  the  solution  of  the  set  of  equations  using  numerical  methods.  The  20  unknown 
variables  are: 

ea ,  ,  ey ,( vG ),  (  Vp),  (  vY ),  (T), 

{^sv  )>  ( Mb? )’  Qsl 

(pY)Y>(A)Y»(P2)ir»(py)Y»(Pl)7»(P2)Y 

(py)CT’(Pi)0*<P2)° 
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2.9  Comparison  with  Previously-Derived  Equations 

The  simplified  sytems  of  partial  differential  equations  given  in  the  previous  chapter 
still  contain  many  equations  with  a  large  number  of  unknown  variables.  Even  for  the 
simplified  case  of  vapor  diffusion,  the  system  of  equations  is  quite  confusing,  and  it  is 
difficult  to  verify  their  accuracy,  other  than  by  checking  for  dimensional  consistency. 
One  way  of  checking  their  validity  is  to  see  if  they  simplify  down  to  more  well-known 
diffusion  equations  for  the  transport  of  water  vapor  in  air  through  a  porous  hygroscopic 
solid.  Such  a  system  of  equations  has  been  well  documented  by  Henry  [36],  Norden  and 
David  [33],  and  Li  and  Holcombe  [37],  who  have  used  them  to  describe  the  diffusion  of 
water  vapor  through  a  hygroscopic  porous  material. 

We  will  make  the  same  assumptions  used  by  these  previous  workers,  and  attempt  to 
transform  the  system  of  equations  for  the  case  of  vapor  diffusion  (no  liquid  or  gas  phase 
convection)  to  their  system  of  equations.  For  completeness,  we  will  also  need  to  write 
the  various  equations  in  terms  of  the  variables  and  units  used  their  work. 

The  major  simplifying  assumptions  are:  1)  there  is  no  liquid  or  gas  phase  convection, 
2)  there  is  no  liquid  phase  present,  3)  the  heat  capacity  of  the  gas  phase  can  be  neglected, 
4)  the  volume  of  the  solid  remains  constant  and  does  not  swell,  5)  the  solid  and  gas 
phase  volume  fractions  are  both  constant,  6)  the  thermal  conductivity  tensor  may  be 
expressed  as  a  constant  scalar  thermal  conductivity  coefficient,  7)  the  gas  phase  diffusion 
coefficient  is  constant,  7)  the  transport  is  one-dimensional  (x-direction). 

The  total  thermal  energy  equation  becomes: 


(P }C„  ^  +  (a  +  *Kap )«)  =  V  •  (a$.  • V<r» 

(2.9.1) 

or 

(p K  +(Ql  +  AhvaP)M  =  Kff  ^2 

(2.9.2) 

The  gas  phase  continuity  equation  becomes: 

CO 

<o'" 

II 

t 

(2.9.3) 

The  gas  phase  diffusion  equation  (component  1— water  vapor): 


(2.9.4) 


(2.9.5) 
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(2.9.6) 


The  solid  phase  continuity  equation  (component  1 -water): 

ec|-((Pl>O)+(^>  =  0 


For  the  solid  phase  diffusion  equation  (component  1 —water)  we  assume  that  the 
diffusional  transport  through  the  solid  phase  is  insignificant  compared  to  the  diffusion 
through  the  gas  phase,  so  the  diffusion  equation  reduces  to  the  continuity  equation: 


ea^((pl>G)+(<)  =  v- 


(Po)°0aV 


f  W 
Pi 


(Pu)C 


J 


=  0 


(2.9.7) 


Volume  fraction  constraint 

ey+e0=l  ;  e0  =  l-ey  (2.9.8) 


Thermodynamic  relations 


(A>T=(pi>T«i(r) 

(P2Y  ={P2Y  «l(T) 

<Pr)Y=<Pi>T+<P2)T 

{py)y =(piY +(piY 


(2.9.9  -  2.9.12) 


We  made  the  assumption  that  the  mass  transport  through  the  solid  phase  is  negligible 
compared  to  mass  transport  through  the  gas  phase.  This  is  reasonable  since  the  diffusion 
coefficient  for  water  in  a  solid  is  always  much  less  than  the  diffusion  coefficient  of  water 
vapor  through  air.  We  thus  only  have  accumulation  of  water  in  the  solid,  and  the  solid 
acts  as  a  source  or  sink  for  water  vapor. 

We  can  combine  the  continuity  equations  for  water  (component  1)  for  both  phases  by 
connecting  the  phase  equations  through  the  mass  flux  from  the  solid  to  the  gas  phase: 


(2.9.13-2.9.14) 


*(p .)’ 


which  we  may  rewrite  in  terms  of  the  gas  phase  volume  fraction  as: 
/-  \  5  //.  \o \  .  _  d  (,_  \Y\  d2(pl)Y 


(2.9.15) 


Through  these  various  assumptions,  we  have  reduced  our  large  equation  set  down  to 
two  main  equations  for  the  energy  balance  and  the  mass  balance: 


(p)cp  ^+(a  +  AAraf,)(m„)  =  k€ 


(2.9.17) 


(2.9.18) 


To  make  the  comparison  with  the  existing  equations  of  Henry  [36],  Norden  and 
David  [33],  and  Li  and  Holcombe  [37],  easier,  we  can  rewrite  the  intrinsic  phase 
averages  in  terms  of  the  concentration  of  water  in  the  solid  (CF)  and  concentration  of 
water  in  the  gas  phase  (C): 

^  _  mass  of  water  in  solid  phase  _  mlG  _ 

F  solid  phase  volume  V0  a 

mass  of  water  in  gas  phase  miy  (2.9.19  -  2.9.20) 

C  = -  — - —  Ply 

gas  phase  volume  Vy 


Since  the  definition  of  intrinsic  phase  average  gives  the  same  quantity  as  the  true 
point  value,  we  may  use  the  fact  that 

(Pi)°  =  {cfT  ~  CF 

W-W  -C  (2.9.21-2.9.22) 

to  rewrite  the  mass  balance  equation  as: 

+8y  ~di  =  'Deff'dxr  (2'9'23) 


(2.9.21  -  2.9.22) 


(2.9.23) 


We  can  rewrite  the  effective  diffusion  coefficient  by  using  the  diffusion  coefficient 
for  water  vapor  in  air  modified  by  the  gas  volume  fraction  and  the  tortuosity  of  the  gas 
volume  fraction: 

*  yl  dt  r  3 t  x  3x2  (  ’ 


(2.9.24) 


The  thermal  energy  equation 

(p)C,^+(a  +  A*vv)(m„)  =  t,ir^  (2.9.25) 

may  also  be  modified  by  recognizing  that  the  mass  flux  term  is  contained  in  the  solid 
phase  continuity  equation: 

ea4-((Pi>O)+{^)  =  0  =>  (msv)  =  -£0^-  (2.9.26) 
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;  thermal  energy  equation  may  be  rewritten  as: 

1  _{0+M.  V  %L-k 

\^l+Anvap)£a  ~Keff  -j  2 


so  that  the _ OJ  _ 

(pK^-(Qi+^)^ 


(2.9.27) 


If  we  go  back  to  our  definitions  for  the  mass  fraction  weighted  average  heat  capacity, 


j=N 


CP  = 


_ _ M 


e^S(p;)°(cp)  +EyX(pi)Y(c/7) 

J  i=l 


(P) 

and  spatial  average  density, 

<p>=^'i(p;r«Yi<P,r 

j=i  i= i 

the  thermal  energy  equation  may  be  rewritten  as: 

e„[(p1)'(^)1+{pJr(^)2]+eT[(pl>1'(c,)1+{p2>1'(cp)2]^ 


(2.9.28) 


(2.9.29) 

(2.9.30) 

(2.9.31) 


If  we  make  the  assumption  that  the  heat  capacity  of  the  gas  phase  is  negligible,  then 
the  thermal  energy  equation  becomes: 


dcJL=k  ai(r> 


M<Pl>°(cA+<P’>%)2]  — -^-^5-  , 

or  dividing  through  by  the  solid  volume  fraction: 


(2.9.31) 


(2.9.32) 


For  consistent  nomenclature  with  Li  and  Holcombe14  we  will  write  the  effective 
thermal  conductivity  keff  as  K. 

We  can  also  define  a  volumetric  heat  capacity  C  as: 


Units  fa  (pjY(cp).  are 


m3  K 


(2.9.33) 


The  final  thermal  energy  equation  reduces  to: 

cM-to+Ah 

c"  it  +  a.  K  a.2 


dt  dx2 


(2.9.34) 
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The  two  simplified  equations  for  the  mass  and  energy  balance  are  thus: 


\  dCp  dC  DaZy 

+Er  3,  = 

(2.9.35) 

cM-fo+M  KW 

c,  3f  (0+AVJ  j,  K  dx2 

(2.9.36) 

These  two  simplified  equations  are  very  encouraging,  since  they  are  exactly  the  same 
as  previous  equations  derived  by  Henry  [36],  Norden  and  David  [33],  and  Li  and 
Holcombe  [37],  for  describing  the  diffusion  of  water  vapor  through  a  hygroscopic 
porous  material.  In  their  equations  they  define  the  heat  of  sorption  from  the  vapor  phase 
into  the  solid  (which  is  the  opposite  of  the  heat  of  desorption  which  we  used)  as: 

X  =  {Q[  +  Ahvap) 

so  that  their  equations  are: 

(2.9.37) 

/,  \dCF  dC  Daeyd2C 

^3 ,  +e»*"  .  V 

(2.9.38) 

3(r>  ,acF_  ?(t) 

Cv  dt  1  dt  ~  a*2 

(2.9.39) 

2.10  Conclusions 

Whitaker's  theory  of  coupled  heat  and  mass  transfer  through  porous  media  was 
modified  to  include  hygroscopic  porous  materials  which  can  absorb  liquid  into  the  solid 
matrix.  The  system  of  equations  described  in  this  report  should  make  it  possible  to 
evaluate  the  time-dependent  transport  properties  of  hygroscopic  and  non-hygroscopic 
clothing  materials  by  including  many  important  factors  which  are  usually  ignored  in  the 
analysis  of  heat  and  mass  transfer  through  textile  materials.  The  set  of  equations  allows 
for  the  unsteady  capillary  wicking  of  sweat  through  fabric  structure,  condensation  and 
evaporation  of  sweat  within  various  layers  of  the  clothing  system,  forced  gas  phase 
convection  through  the  porous  structure  of  a  textile  layer,  and  the  swelling  and  shrinkage 
of  fibers  and  yams  as  they  absorb/desorb  liquid  water  and  water  vapor. 

The  simplified  set  of  equations  for  heat  and  mass  transport,  where  mass  transport 
occurs  due  to  diffusion  within  the  air  spaces  of  the  porous  solid,  was  shown  to  reduce  to 
the  well-known  coupled  heat  and  mass  transfer  models  for  hygroscopic  fabrics,  as 
exemplified  by  the  work  of  Li  and  Holcombe  [37]. 
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CHAPTER  3 


EXPERIMENTAL  METHODS 


3.1  Introduction 

Experimental  measurements  of  the  transport  properties  of  textile  materials  were 
conducted  to  provide  experimental  data  for  comparison  with  the  predictions  of  a 
numerical  model,  and  also  to  conduct  research  on  the  changes  in  transport  properties 
evident  in  these  materials  due  to  factors  such  as  fiber  swelling.  Experimental 
measurements  focused  on  two  modes  of  transport:  1)  diffusion/sorption  of  water  vapor, 
and  2)  gas  phase  convection  of  water  vapor  and  air  through  porous  textiles.  Two  new 
test  methods  were  developed  which  are  capable  of  determining  both  steady-state  and 
transient  properties  of  porous  materials  under  situations  of  pure  diffusion  (concentration 
gradients),  combined  gas  phase  convection/diffusion,  and  pure  convection  (gas  phase 
pressure  differences).  A  complete  description  of  both  of  these  test  methods,  and  their 
use  to  determine  the  diffusion  and  convection  transport  properties  of  textiles,  are  given 
in  this  chapter,  along  with  representative  results  for  several  different  classes  of  materials. 

3.2  Diffusion  Test  Method  (Dynamic  Moisture  Permeation  Cell) 

Water  vapor  permeation  properties  of  clothing  materials  are  usually  determined 
using  the  ASTM  Test  Method  for  Water  Vapor  Transmission  of  Materials  (E  96)  [38], 
and  the  ISO  Test  Method  for  Measurement  of  Thermal  and  Water  Vapour  Resistance 
under  Steady-State  Conditions  (ISO  11092)  [39].  Both  methods  are  time-consuming, 
require  large  amounts  of  material,  and  are  not  capable  of  a  very  wide  range  of  test 
conditions.  These  are  also  pseudoequilibrium  test  methods,  and  do  not  give  information 
on  any  of  the  dynamic  properties  of  the  test  materials  which  may  be  important  under 
transient  conditions.  There  was  a  need  for  a  convenient  water  vapor  diffusion  test  which 
allows  one  to  test  small  quantities  of  fabrics,  membranes,  or  membrane  laminates,  and 
also  to  conduct  research  into  the  behavior  of  these  materials  under  nonstandard 
conditions. 

There  are  a  wide  variety  of  test  methods  developed  over  the  years  to  characterize 
the  diffusion  and  permeation  properties  of  polymer  films,  laminates,  textiles,  and  paper 
products  [40-47].  The  method  described  here,  which  has  been  called  the  Dynamic 
Moisture  Permeation  Cell  (DMPQ,  is  similar  to  a  method  used  by  Wehner,  et.  al  [48], 
to  measure  the  dynamics  of  water  vapor  transmission  through  hygroscopic  and 
nonhygroscopic  fabrics. 
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A  schematic  of  the  DMPC  test  arrangement  is  shown  in  Figure  5. 


Figure  5.  Schematic  of  DMPC  test  arrangement. 

Nitrogen  streams  consisting  of  a  mixture  of  dry  nitrogen  and  water-saturated 
nitrogen  are  passed  over  the  top  and  bottom  surfaces  of  the  sample.  The  relative 
humidity  of  these  streams  is  varied  by  controlling  the  proportion  of  the  saturated  and  the 
dry  components.  By  knowing  the  temperature  and  water  vapor  concentration  of  the 
entering  nitrogen  flows,  and  by  measuring  the  temperature  and  water  vapor 
concentration  of  the  nitrogen  flows  leaving  the  cell,  one  may  measure  the  flux  of  water 
vapor  diffusing  through  the  test  sample. 
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The  following  equations  for  calculating  water  vapor  flux  apply  to  either  the  top  or 
bottom  flows  in  the  cell.  Strictly  speaking,  only  one  measurement  on  one  side  of  the  cell 
is  necessary;  the  use  of  two  separate  humidity  transducer  for  the  top  and  bottom  flows 
allows  two  measurements  of  water  vapor  flux  to  be  made  at  the  same  time,  using  the 
equations  given  below  for  either  the  top  or  bottom  flow,  as  appropriate. 

For  this  type  of  test,  the  mass  flow  rate  of  water  vapor  diffusing  through  the  test 
sample  from  one  side  of  the  cell  to  the  other  is  given  by: 


m  Q(  8C)  e(C2-C,) 

AAA 

m  mass  flux  of  water  vapor  across  the  sample  [kg/s] 

A  area  of  test  sample  [m2] 

Q  volumetric  flow  rate  through  top  or  bottom  portion  of  the  cell  [m3/s] 

8C  =  C2  -  C2 ,  water  vapor  concentration  difference  between  incoming  stream  (C,) 
and  outgoing  stream  (C2)  in  top  or  bottom  portion  of  the  moisture  permeation  cell 
[kg/m3] 

The  incoming  water  vapor  concentration  is  determined  by  the  ratio  of  the  mass 
flows  of  the  saturated  and  the  dry  nitrogen  streams.  The  mass  flow  rates  are  controlled 
by  MKS  model  1259C  mass  flow  controllers,  with  a  Model  247C  4-Channel  Readout 
(MKS  Instruments,  Inc.).  At  constant  mass  flow,  the  true  volumetric  flow  rate  will  vary 
with  temperature;  the  flow  rate  set  by  the  MKS  controllers  is  indicated  in  terms  of 
volumetric  flow  rates  at  standard  conditions  of  0°C  and  atmospheric  pressure  (1.01325  X 
105  Pa)  The  actual  volumetric  flow  rate  at  different  temperatures  may  be  found  from  the 
mass  flow  rate,  the  temperature,  and  the  pressure  of  the  actual  flow. 

The  critical  measurement  is  the  outgoing  flow  water  vapor  concentration  C2, 
which  we  may  measure  in  a  variety  of  ways.  At  present,  capacitance-type  relative 
humidity  probes  (Vaisala  HMI 32)  with  Type  HMP  35  sensors  are  used  (V aisala  Inc.). 
To  obtain  the  water  vapor  concentration  in  the  outgoing  air  stream,  one  must  be  able  to 
convert  from  the  known  values  of  relative  humidity  and  temperature  to  water  vapor 
concentration.  We  may  use  an  empirical  formula  (or  tables)  for  the  vapor  pressure  of 
saturated  water  vapor  in  air  as  a  function  of  temperature,  and  then  use  the  perfect  gas 
law  to  convert  vapor  pressure  to  concentration. 

We  may  express  the  water  vapor  transmission  rate  in  terms  of  the  indicated 
volumetric  flow  rate  at  standard  conditions,  the  humidity  difference,  and  the 
temperature: 


m  _ 

A  ARTS 


(3.2) 
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Mw  molecular  weight  of  water  vapor  [18.015  kg/kgmole] 

Qs  volume  flow  rate  at  standard  conditions  of  0°C  and  atmospheric  pressure  [m3/s] 

R  universal  gas  constant  [8314.5  N-m/kg-°K] 

Ts  reference  temperature  at  standard  conditions  of  0°C  in  degrees  K  (273.15  K) 
ps  saturation  vapor  pressure  of  water  [Pa] 

8<(>  =  <(>2  -  ,  relative  humidity  difference  between  incoming  stream  (t^j) 

and  outgoing  stream  (<()2)  in  top  or  bottom  portion  of  the  moisture  permeation  cell 
<{>  =  pv/ps ,  relative  humidity 

pv  vapor  pressure  of  water  [Pa] 

For  the  present  test  apparatus,  various  sample  holders  are  available,  which  have 
different  test  sample  measurement  areas,  and  which  have  different  downstream  locations 
from  the  flow  inlet.  All  test  results  given  in  this  study  used  a  sample  measurement  area 
of  1.0  x  10‘3  m2,  and  the  sample  was  located  equidistant  from  the  inlet  and  outlet  ports  of 
the  cell.  The  typical  volumetric  flow  rate  used  was  3.33  X  10‘5  m3/s  (2000  cm3/min). 

The  dimensions  of  the  DMPC  were  chosen  to  assure  flow  velocities  of  at  least  0.5  m/sec 
over  the  sample  to  minimize  the  contribution  of  boundary  air  layer  resistances  to  the  test 
measurements.  Most  of  the  tests  were  conducted  with  the  flow  parallel  on  the  two  sides 
of  the  test  sample;  for  comparison,  some  countercurrent  flow  testing  was  also  conducted 
and  is  described  later.  Details  of  the  moisture  permeation  cell  are  shown  in  Figure  6. 


Test  Sample 


Sample  Clamping  Plate 


2 


Flow  Inlet 
or  Outlet 


Duct  Width  =  0,025  m 

Duct  Height  =  0.0025  m  or  0.0050  m 

(two  different  cells  available) 

Duct  Length  «  0.1 3  m 


Lower  Half  of  Flow  Cell 


Figure  6.  Schematic  and  Dimensions  of  the  Dynamic  Moisture  Permeation  Cell. 
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The  flow  path  both  above  and  below  the  sample  is  a  long,  wide  duct,  with  a  small 
clearance  between  the  sample  and  the  upper  or  lower  duct  surface.  The  flow  in  such  a  duct 
is  approximated  by  the  flow  between  parallel  plates.  Since  the  flow  velocities  are  so  low, 
and  the  flow  geometry  is  quite  narrow,  it  is  clear  that  the  flow  is  laminar.  It  is  desirable  to 
have  the  entrance  length  long  enough  for  the  flow  to  become  fully  developed  by  the  time 
the  flow  reaches  the  sample.  For  laminar  flow  in  a  duct,  the  entrance  length  for  the  velocity 
profile  to  become  fully-developed  is  given  by: 


XLv  =  0. 05  R tDuc,  H  =  0. 022  m 

*Lv  =  entrance  length  for  fully  developed  momentum  boundary  layer 


Re 


Duct 


(3.3) 


p  =  1.2  kg  /  m3  (Dry  Nitrogen) 

V  =  0.57  m/  s  (based  on  flow  rate  of  2000  cm3  /  min  and  given  flow  area) 

Dfj  =  hydraulic  diameter  =  4  x  (flow  area  /  wetted  perimeter)  =  0. 00454  m 

(i  =  absolute  viscosity  =  1. 78  x  10-5  N  -  s  /  m2 
H  =  duct  height  (0. 0025  m) 

The  fluid  properties  and  geometry  of  the  duct  give  an  entrance  length  for  the 
fully-developed  velocity  profile  of  0.02  meters,  or  2  centimeters,  which  is  a  good 
distance  away  from  the  beginning  of  the  sample  location  in  the  moisture  permeation  cell. 

We  can  check  this  result  by  also  assuming  that  we  have  flow  between  parallel 
plates,  and  base  our  Reynolds  number  solely  on  the  plate  separation  distance.  In  the 
paper  by  Chen  [49],  we  have  a  solution  for  the  entrance  length  as  a  function  of  Reynolds 
number. 

The  Reynolds  number  is  defined  based  on  the  half-height  of  the  channel: 
Re=22P V=S£V=% 

^  “  (3.4) 

a  =  duct  half  -height  =  H/2 

For  parallel  plate  flow,  the  dimensionless  entry  length  Xe  (xe  is  dimensional 
entry  length)  is  given  as  a  function  of  Reynolds  number  as: 
xx  0  79 

=  — +0.053  Re  =  6. 09  =»*,=().  015  m  (3  5) 

e  2  a  H  0.04Re+l  *  v  J 


As  we  will  see  later  from  the  flow  analysis  using  a  two-dimensional  numerical 
fluid  flow  program,  this  shorter  entrance  length  of  1.5  cm  agrees  with  the  calculated 
flow  velocity  profiles. 
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The  test  sample  sizes  are  kept  quite  small  to  make  it  possible  to  evaluate  novel 
membranes  and  laminates,  which  are  often  produced  in  quantities  too  small  for  testing 
by  some  of  the  standard  water  vapor  diffusion  test  methods.  Sample  mounting  methods 
vary  according  to  the  material  being  tested.  Thin  materials,  such  a  laminated  materials 
and  woven  cloth,  were  originally  tested  with  rubber  sealing  gaskets  to  prevent  leakage, 
but  the  sealing  proved  to  be  unnecessary  for  most  materials;  the  clamping  force  provided 
by  the  mounting  bolts  has  proven  to  be  sufficient  to  prevent  any  leakage.  Thick 
materials  which  are  highly  permeable  require  special  sealing  methods  such  as  edge 
sealing  by  molten  wax,  or  the  use  of  a  curable  sealant.  A  new  cell,  which  is  capable  of 
testing  very  thick  materials  such  as  battings  used  for  cold  weather  clothing,  is  presently 
under  development 

3.2.1  Test  Procedure 

The  actual  test  is  conducted  under  the  control  of  a  personal  computer  (PC) 
connected  to  the  flow  controllers  and  the  relative  humidity  instruments  through  a 
General  Purpose  Interface  Bus  (GPIB)  controller  (see  Figure  5).  The  operator  inputs  up 
to  20  desired  humidity  setpoints  for  the  upper  and  lower  nitrogen  streams.  The 
computer  applies  the  proper  setpoint  voltage  to  each  controller  to  produce  the  desired 
relative  humidity  in  the  upper  and  lower  streams  entering  the  moisture  permeation  cell. 
The  analog  voltage  output  of  the  relative  humidity  measurement  instrument  is  read  by 
the  digital  voltmeter  and  sent  to  the  PC  through  the  GPIB,  and  displayed  on  the  screen. 
The  computer  plots  the  relative  humidity,  records  the  data  to  disk,  and  applies  operator- 
determined  equilibration  criteria  to  determine  when  equilibration  has  been  reached  for 
that  setpoint.  Once  equilibration  is  reached,  the  results  (humidity,  calculated  flux,  etc.) 
are  output  to  a  printer  and  to  a  data  file  on  disk.  The  computer  then  proceeds  to  the  next 
setpoint  and  repeats  the  process. 

Calibration  and  Setup 

Three  calibration  procedures  must  be  observed  before  a  series  of  tests  begins. 

The  flow  meters  must  be  calibrated  either  by  an  independent  flow  meter,  or  they  may  be 
calibrated  directly  by  a  special  procedure  of  balancing  using  the  humidity  meters  and 
switching  of  gas  inputs  to  check  for  equality  of  flows.  The  zero  reading  and  a  full  scale 
range  check  have  proved  sufficient  so  far.  The  particular  flow  controllers  in  use  are  quite 
stable  from  day  to  day  if  left  on  and  warmed  up. 

After  the  calibration  of  the  flow  meter,  the  offset  of  the  digital-to-analog  (D/A) 
converters  used  to  apply  a  setpoint  voltage  to  the  flow  controllers  must  be  checked.  This 
is  done  by  applying  the  nominal  full  scale  voltage  for  each  D/A  converter  to  the 
controller,  and  checking  the  setpoint.  The  actual  setpoint  is  then  used  by  the  software  in 
the  data  acquisition  and  control  program  on  the  PC  to  determine  a  scale  factor  for  each 
D/A  converter. 
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The  third  calibration  procedure  is  for  the  relative  humidity  instrument.  A  calibration 
curve  for  the  relative  humidity  instrument  may  be  determined  in  situ  by  placing  an 
impermeable  aluminum  foil  sample  in  the  cell  and  varying  the  relative  humidity  of  the  gas 
flow  in  the  top  and  bottom  of  the  cell  by  means  of  the  flow  controllers.  The  resulting  curves 
of  measured  relative  humidity  versus  true  relative  humidity  (set  by  the  flow  controllers)  are 
used  as  calibration  factors  to  correct  the  measured  relative  humidity  for  subsequent  tests. 

The  pressure  drop  across  the  sample  is  monitored  by  means  of  an  MKS  Baratron 
Type  398  differential  pressure  transducer,  with  a  Type  270B  signal  conditioner  (MKS 
Instruments,  Inc.).  For  measurement  of  pure  diffusion,  especially  for  materials  such  as 
fabrics,  which  may  be  quite  permeable  to  convective  flows,  it  is  important  to  make  sure 
that  the  pressure  drop  across  the  sample  is  zero,  so  that  transport  takes  place  only  by 
pure  diffusion.  The  pressure  drop  is  continuously  monitored  and  displayed,  and  is 
controlled  by  means  of  a  valve  restrictor  on  the  outlet  of  one  of  the  gas  streams.  For  the 
permeable  fabrics,  this  system  also  allows  one  to  do  testing  under  controlled  conditions 
of  a  defined  pressure  drop  across  the  sample,  so  that  transport  takes  place  by  both 
diffusion  and  convection.  This  makes  it  possible  to  determine  an  air  permeability  value 
from  the  apparatus,  in  addition  to  the  water  vapor  diffusion  properties  of  the  test  sample. 

Materials  which  have  a  constant  mass  transfer  coefficient  show  a  linear  slope  on 
plots  of  flux  versus  concentration  difference  across  the  sample.  These  kinds  of  materials 
do  not  change  their  transport  properties  as  a  function  of  water  content  or  test  conditions. 

For  materials  which  do  not  have  a  constant  slope,  the  data  points  for  a  test  series 
will  not  superimpose,  but  will  form  a  set  of  curves  for  each  test  condition.  We  may  still 
calculate  a  diffusion  resistance  for  these  materials,  but  now  we  have  to  evaluate  the  flux 
versus  concentration  difference  curve  at  various  points  to  derive  our  values  for  the 
material  diffusion  resistance,  which  will  now  be  a  function  of  the  concentration  of  water 
in  the  material. 

We  define  a  total  resistance  to  mass  transfer  as  the  simple  addition  of  an  intrinsic 
diffusion  resistance  due  to  the  sample  (R. )  and  the  diffusion  resistance  of  the  boundary 
air  layers  (Rbl ): 


(3.6) 


LUJJ 


m  =  mass  flux  of  water  vapor  across  the  sample  (kg/s) 

A  =  area  of  test  sample  (m2) 

hm  =  [  1  /  (R,+Rb)]  =  mass  transfer  coefficient  (m/s) 

AC  =  log  mean  concentration  difference  between  top  and  bottom  nitrogen  streams  (kg/m3) 
Rf  =  intrinsic  diffusion  resistance  of  sample  (s/m) 

Rbl  =  diffusion  resistance  of  boundary  air  layers  (s/m) 
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The  log  mean  concentration  difference  across  the  sample  is  appropriate  since 
there  is  a  significant  change  in  the  concentration  of  the  gas  stream  both  below  and  above 
the  sample.  In  addition,  the  gas  streams  may  not  necessarily  be  in  parallel  flow,  but  may 
be  run  in  counter  flow  to  maintain  a  more  constant  concentration  gradient  across  the 
sample.  The  log  mean  concentration  difference  [50]  is  defined  as: 

at=t  ACa-ACb 

AC  =  ln(A<v£i)  <3'8> 

AC a  =  concentration  difference  between  the  two  gas  streams  at  one  end  of  the  flow  cell 
A Cb  =  concentration  difference  between  the  two  gas  streams  at  the  other  end  of  the  flow  cell 

For  parallel  flow,  the  concentration  differences  are  between  the  top  and  bottom 
incoming  flow  at  one  end  of  the  cell  (A Ca ),  and  the  difference  between  the  top  and 
bottom  outgoing  flows  at  the  other  end  of  the  cell  (ACb).  For  countercurrent  flow,  the 
concentration  differences  are  between  the  incoming  and  outgoing  flows  at  one  end  of  the 
cell  (A Ca  ),  and  the  incoming  and  outgoing  flows  at  the  other  end  of  the  cell  (A Cb). 

It  is  useful  to  have  a  calibration  or  reference  material  to  check  the  operation  of  the 
system.  A  microporous  polytetrafluorethylene  (PTFE)  membrane  has  proven  to  be  very 
useful  for  this  purpose.  A  single  layer  of  this  membrane  has  a  very  small  resistance  to 
water  vapor  diffusion,  but  has  very  high  resistance  to  convective  flow,  because  of  the 
very  small  pore  sizes.  The  membrane  may  be  layered  to  produce  a  material  with  a  lower 
effective  diffiasivity.  Since  diffusion  takes  place  only  through  the  pore  spaces  of  the 
membrane,  the  material  has  a  very  linear  and  reproducible  plot  of  flux  versus 
concentration  difference.  The  plot  of  flux  versus  concentration  difference  may  be  used 
as  a  calibration  curve  for  the  apparatus,  and  may  also  be  used  to  determine  the  boundary 
air  layer  resistance  present  in  the  test  cell. 

It  is  easiest  to  first  look  at  the  results  for  the  PTFE  membranes,  shown  in  Figure  7. 


CO 


Flux/Area  (kg/m2-s) 

Figure  7.  Results  for  Samples  Made  of  Combined  Layers  of  Microporous  PTFE 
Membranes. 
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The  results  for  the  series  of  PTFE  membranes  show  that  the  moisture  permeation  cell 
gives  the  expected  type  of  plots.  Since  these  materials  are  microporous,  and  transport  takes 
places  only  through  the  interconnected  air  spaces  of  the  membrane,  we  expect  that  the  plot 
of  the  mass  flux  versus  the  concentration  difference  across  the  sample  will  be  linear,  which 
is  readily  apparent  from  Figure  7.  We  also  note  that  these  linear  plots  have  all  the  test  results 
from  the  nine  different  test  conditions  superimposed  on  the  same  constant  slope  line,  which 
means  that  the  diffusion  resistance  of  each  sample  is  constant. 

We  may  use  this  test  series  of  microporous  PTFE  membranes  to  derive  an  estimate 
of  the  boundary  layer  resistance  on  both  the  top  and  bottom  of  the  sample.  From  our  definition 
of  resistance,  we  know  that  the  resistance  of  the  sample  and  the  boundary  air  layers  is  equal 
to  the  slope  of  the  line  for  each  sample  in  Figure  7.  We  also  know  that  for  these  types  of 
materials,  we  can  assume  that  the  mass  transfer  resistance  is  additive;  the  resistance  of  20 
layers  is  twice  the  resistance  of  10  layers.  We  may  derive  a  value  for  the  boundary  air  layer 
resistance  from  the  relation: 


^bl  ^ total  nR-i -layer  (3.9) 

Rbi  =  boundary  air  layer  resistance  (s  /  m) 

Rtotai  =  measured  mass  transfer  resistance  of  sample  (s/m) 
n  =  number  of  teflon  layers 

/?i -layer  =  calculated  resistance  of  1  PTFE  layer  (s  /  m) 


From  the  relations  given  above,  we  find  the  boundary  air  layer  resistance  (Rb)  is  in 
the  range  of 95-100  s/m,  and  the  resistance  of  a  single  layer  of  the  PTFE  membrane  is  in  the 
range  of  5-8  s/m.  The  boundary  air  layer  resistance  is  fairly  constant  at  a  given  set  of  flow 
conditions.  We  note  that  a  single  layer  of  the  PTFE  membrane  will  give  practically  the  same 
value  as  the  boundary  air  layer  resistance,  and  thus  serves  as  a  convenient  way  to  directly 
measure  the  boundary  layer  resistance  present  within  the  cell  at  other  flow  conditions  (if  we 
correct  for  the  resistance  of  the  single  PTFE  layer),  and  as  a  standard  reference  material  to 
check  the  results  generated  by  the  cell. 

3.2.2  DMPC  Results  for  Various  Clothing  Materials 

The  test  results  for  three  different  classes  of  clothing  materials  will  illustrate 
various  factors  which  must  be  taken  into  account  when  analyzing  the  results  generated 
by  this  type  of  test.  In  the  next  section  of  this  study,  the  results  obtained  by  the  DMPC 
are  compared  with  the  results  obtained  by  two  other  tests  in  order  to  show  the  correlation 
between  them. 

The  three  classes  of  materials  are  1)  permeable  fabrics,  2)  microporous  fabric- 
laminated  membranes,  3)  hydrophilic  nonporous  fabric-laminated  membranes.  The 
specific  fabrics  tested  are  described  in  Table  3-1. 
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Table  3-1.  Test  Fabrics 


Material  Type 

Sample 

Identification 

Materials  and  Reference 

HWBDU  Fabric 

Hot  Weather  Battle  Dress  Uniform  (HWBDU) 

100%  cotton  fabric  [51] 

Air-Permeable 

BOO  Shell  Fabric 

Battle  Dress  Overgarment  (BDO)  Shell  Fabric 

50%  cotton/  50%  nylon  fabric  [52] 

Fabrics 

USMC  System 
(Shell  Fabric  +  Liner) 

U.S.  Marine  Corps  chemical  protective  garment  system 

100%  cotton  fabric  over  nonwoven  laminated  carbon-loaded 
polyester  knit  liner  [53], [54], [55] 

BDO  System 
(Shell  Fabric  +  Liner) 

Battle  Dress  Overgarment  (BDO) 
chemical  protective  garment  system 

50%  cotton/50%  nylon  fabric  over  nylon  tricot  laminated 
carbon-loaded  polyurethane  foam  finer  [52],  [57],  [58] 

Micropororous 

PTFE  Membrane  (1  layer) 

Microporous  polytetrafluonethylene  (PTFE)  membrane 

Laminated 

Gore  Tex  III 

Membrane  Laminate 

Gore  Tex  III  membrane  laminated  between  Taslan  nylon  shell 
fabric  and  nylon  tricot  knit  liner  [59] 

Membranes 

Repel  Membrane  Laminate 

Repel  membrane  laminated  between 

Nomex  shell  fabric  and  knit  liner 

Hydrophilic  Laminated 

Azekura 

Membrane  Laminate 

Hydrophilic  membrane  laminated  to  fabric  on  one  side 

Membranes 

Gore  Tex  II 

Membrane  Laminate 

Gore  Tex  II  membrane  laminated  between  Taslan  nylon  shell 
fabric  and  nylon  tricot  knit  liner  [59] 

We  would  expect  in  general  that  under  conditions  of  pure  diffusion  (i.e.  no 
pressure  drop  or  convective  flow  across  the  sample)  the  permeable  fabrics  and  the 
microporous  fabric-laminated  membranes  will  have  a  linear  slope  on  a  plot  of  vapor 
mass  flux  versus  vapor  concentration  difference  across  the  sample.  Also,  that 
hydrophilic  nonporous  fabric-laminated  membranes  would  not  be  linear  but  would  show 
lower  resistances  at  test  conditions  which  produce  a  high  water  content  in  the  membrane, 
and  higher  resistances  at  test  conditions  where  less  water  is  present  in  the  membrane. 

Using  equation  (3.7)  we  may  calculate  the  diffusion  resistance  of  each  of  these 
materials.  If  we  subtract  the  boundary  layer  resistance  (100  s/m)  from  the  total 
resistance  measured  in  this  test,  we  obtain  the  intrinsic  mass  transfer  resistance  of  each 
sample. 

We  can  show  the  results  of  the  testing  for  this  set  of  materials  in  terms  of  an 
average  relative  humidity  at  the  membrane,  an  approach  that  is  often  used  for  materials 
which  exhibit  concentration-dependent  permeation  behavior  [60,61].  By  doing  this,  we 
assume  the  average  of  the  relative  humidities  of  the  two  incoming  gas  streams  could  be 
related  back  to  the  water  content  of  the  sample  estimated  from  a  water  vapor  isotherm. 
This  definition  neglects  the  influence  of  the  resistance  of  the  boundary  air  layer,  which 
will  further  decrease  the  concentrations  at  the  surfaces  of  the  hydrophilic  materials,  and 
it  neglects  the  variation  in  vapor  concentration  along  the  sample.  A  log  mean  average 
concentration/water  content  in  the  sample  would  be  a  more  appropriate  factor  to  use,  but 
the  average  relative  humidity  method  will  be  sufficient  to  illustrate  the  general  trend  of 
material  behavior.  A  plot  of  measured  intrinsic  resistance  as  a  function  of  average 
relative  humidity  is  shown  in  Figure  8. 
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Figure  8.  Variation  in  intrinsic  log  mean  diffusion  resistance  as  a  function  of  the  mean 
relative  humidity  on  the  two  sides  of  the  test  sample. 

As  expected,  the  fabrics  and  microporous  membrane  laminates  show  a  fairly 
constant  mass  transfer  resistance,  which  is  relatively  independent  of  the  test  conditions. 
In  contrast  to  the  relatively  simple  behavior  of  the  fabrics  and  the  microporous 
membrane  laminates,  the  two  hydrophilic  laminated  membranes  have  a  great  variation  in 
their  measured  mass  transfer  resistance  depending  on  the  test  conditions  used. 

We  can  see  that  the  properties  of  the  hydrophilic  membranes  are  much  more 
complicated  than  the  other  materials  tested.  The  primary  barrier  to  water  vapor 
diffusion  in  these  materials  is  the  solid  polymer  layer  through  which  the  water  must 
diffuse.  The  permeability  of  water  in  these  materials  is  highly  concentration-dependent, 
and  makes  the  analysis  of  the  test  results  generated  for  these  materials  much  more 
complicated. 

We  see  that  there  is  a  clear  trend  of  decreasing  resistance  as  the  average  relative 
humidity  (equivalent  to  average  water  concentration)  in  the  hydrophilic  membrane 
laminates  increases.  As  the  hydrophilic  materials  approach  saturation,  they  become 
comparable  to  some  of  the  low  resistance  materials  such  as  the  fabrics.  There  also  seem 
to  be  clear  differences  in  the  degree  of  the  dependence  of  material  properties  on  the 
average  relative  humidity.  We  believe  that  presenting  data  in  this  way,  as  a  function  of 
average  relative  humidity,  gives  a  clearer  picture  of  the  differences  in  materials  which 
show  up  under  actual  use  conditions. 
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3.2.3  Comparison  of  DMPC  With  Two  Other  Vapor  Permeability  Test  Methods 

Results  generated  by  the  dynamic  moisture  permeation  cell  may  be  compared  with 
results  generated  by  other  methods  used  for  measuring  the  water  vapor  diffusion 
properties  of  materials.  Two  well-accepted  standard  methods  are  the  ASTM  Test 
Method  for  Water  Vapor  Transmission  of  Materials  (E  96)  [38],  and  the  International 
Standards  Organization  Test  Method  ISO  11092,  Measurement  of  Thermal  and  Water- 
Vapour  Resistance  Under  Steady-State  Conditions  (Sweating  Guarded  Hot  Plate  Test) 
[39].  The  set  of  materials  described  in  Table  3-1  were  tested  by  all  three  methods,  and 
a  correlation  between  the  test  methods  was  determined.  For  the  correlation  plots  only 
the  fabrics  and  the  microporous  membrane  laminates  are  shown,  even  though  the 
hydrophilic  membrane  laminates  were  also  tested.  The  concentration-dependent 
properties  of  the  hydrophilic  materials  are  affected  much  more  by  the  different 
temperatures  and  humidity  gradients  present  in  the  three  tests,  and  unnecessarily 
complicate  the  direct  test-to-test  comparison. 

ISO  11092  (Sweating  Guarded  Hot  Plate) 

The  ISO  11092  test  method  is  briefly  described  below,  further  details  of  the  test 
method  and  some  typical  results  may  be  found  in  Reference  [62]. 

The  porous  guarded  hot  plate  is  saturated  with  water  so  that  its  surface  is 
completely  wet.  A  thin  saturated  cellophane  film  placed  over  the  plate  prevents  liquid 
water  from  wicking  into  the  fabric,  yet  allows  water  to  freely  permeate  through  the  film 
and  evaporate  from  the  surface.  The  resistance  of  the  film  is  so  small  that  it  behaves  like 
the  surface  of  liquid  water,  and  the  vapor  pressure  is  equal  to  saturation  vapor  pressure. 
Since  the  ISO  1 1092  test  conditions  call  for  no  temperature  difference  between  the  plate 
surface  and  the  ambient  air,  the  power  required  to  maintain  the  plate  surface  at  a  given 
temperature  is  directly  related  to  the  rate  at  which  water  evaporates  from  the  surface  of 
the  plate  and  diffuses  through  the  test  material. 

The  equation  used  for  calculating  the  water  vapor  resistance  is: 

(3-10) 

Retotai  ~  water  vapor  resistance  of  the  material  plus  the  boundary  air  layer  resistance  (m2  -  Pa  /  Watt) 
A  =  guarded  hot  plate  measurement  area  (m2) 

ps  =  saturated  water  vapor  pressure  at  the  plate  surface  (Pa)  at  the  plate  temperature 
pa  -  saturated  water  vapor  pressure  of  ambient  air  (Pa)  at  ambient  air  temperature 
E  =  power  required  to  maintain  a  constant  plate  surface  temperature  (Watt) 

4>  =  relative  humidity  of  the  ambient  air  (fractional) 

The  intrinsic  water  vapor  resistance  Ret  of  the  fabric  may  be  determined  by  subtracting 
out  the  value  of  the  water  vapor  resistance  measured  for  the  bare  plate,  Reto  : 

Ret  ~  Retotal  ~  Reto  ^  ^ 
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The  intrinsic  water  vapor  resistance  is  equivalent  to  the  intrinsic  mass  transfer 
resistance  measuredin  the  DMPC  apparatus.  We  may  also  convert  the  Ret value  obtainedfrom 
the  sweating  guarded  hot  plate  to  the  intrinsic  mass  transfer  units  of  (s/m)  used  in  the  DMPC 
test 


Rf  -  Ret 


RT  ) 


(3.12) 


Rf  =  intrinsic  mass  transfer  resistance  (s/  m) 

Rgf  =  intrinsic  water  vapor  resistance  (m2  -  Pa  /  Watt) 

A Hvap  =  enthalpy  of  vaporization  for  water  (2. 42  x  106  J  /  kg  @  35°  C) 
R=  universal  gas  constant  (8314.5  N-m/Kgmole-K) 

T  =  temperature  (K) 


We  can  make  another  small  correction  for  the  difference  in  test  temperatures  for  the 
fabrics  and  microporous  laminates  by  using  the  ratio  of  the  diffusion  coefficients  of  water 
vapor  in  air  at  the  two  test  temperatures.  This  particular  temperature  correction  is  only  valid 
for  the  materials  in  which  water  vapor  transport  occurs  through  the  air  spaces  of  the  material. 
A  similar  temperature  correction  for  the  hydrophilic  solid  polymer  membranes  would  be 
possible  if  information  is  available  on  the  variation  of  their  diffusion  coefficients  with 
temperature. 


Rf(@Tl)  =  Rf{@T2)^ 


£jm r 

Da(@T2)j 


(3.13) 


Da=  2.23X10"5 


"(r +273. 15)  I1'75 
273.15 


=  diffusion  coefficient  of  water  vapor  in  air  (m2  /  s) 


A  correlation  between  the  DMPC  and  ISO  11092  is  shown  in  Figure  9  for  the 
fabrics  and  microporous  laminated  membranes  given  in  Table  3-1.  A  schematic  of  the 
ISO  11092  test  apparatus  and  conditions  is  also  shown  in  Figure  9.  There  is  an  excellent 
correlation  between  the  tests,  especially  when  one  considers  that  the  test  methods  are 
very  different,  in  that  the  sweating  hot  plate  is  a  calorimetric  method,  and  the  DMPC  is  a 
direct  measurement  of  concentration  differences. 
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Figure  9.  Correlation  between  DMPC  and  ISO  11092  for  several  fabrics  and 
microporous  membrane  laminates. 

ASTM  E  96  (Cup  Method) 

ASTM  Method  E  96  "Standard  Test  Methods  for  Water  Vapor  Transmission  of 
Materials"  is  another  test  technique  which  is  widely  used  to  evaluate  the  water  vapor 
transmission  properties  of  woven  textiles,  membranes,  and  membrane/fabric  laminates. 
For  this  set  of  comparison  tests,  a  modified  Procedure  BW  of  ASTM  E  96  was  used, 
which  is  an  inverted  cup  test  which  eliminates  the  air  space  between  the  sample  and  the 
surface  of  the  water.  The  modified  E  96  BW  test  was  conducted  at  standard  test 
conditions  of  23°C  and  50%  relative  humidity  (wet  bulb  temperature  of  16.4°C). 
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Several  air  flow  conditions  were  tried  to  see  if  they  had  any  effect  on  the  results. 
Two  air  flow  conditions  tangential  to  the  fabric  surface  of  0.5  m/s  and  3.1  m/s,  and  one 
air  flow  condition  of  6.5  m/s  perpendicular  (face-on)  to  the  fabric  surface. 

To  prevent  the  liquid  water  from  wicking  into  the  fabric  in  these  inverted  tests,  a 
hydrophobic  microporous  polytetrafluoroethylene  (PTFE)  membrane  was  sealed  over 
the  cup,  and  the  test  sample  was  placed  over  the  membrane.  This  approach  of  using  a 
membrane  which  has  a  minimal  resistance  to  water  vapor  transfer,  but  which  is  a  barrier 
to  liquid  penetration,  is  often  used  to  produce  a  saturation  condition  for  one  side  of 
fabrics  and  textiles  [60]. 

The  inverted  cup  test  minimizes  the  possibility  of  air  penetrating  the  fabric  and 
skewing  the  results  whereas  in  an  upright  cup  test  (e.g.  ASTM  E  96,  Procedure  B),  the 
air  flow  over  the  cup  can  easily  circulate  through  a  highly  air-permeable  fabric  and  cause 
an  increased  evaporation  rate  due  to  the  disruption  of  the  still  air  layer  underneath  the 
fabric.  Thus  for  fabric  with  high  air  permeability,  upright  cup  results  in  ASTM  E  96  B 
are  highly  dependent  on  the  orientation  of  the  external  flow,  and  the  geometry  and  size 
of  the  cup  and  associated  air  spaces  between  the  water  surface  and  the  fabric.  A  major 
advantage  of  the  DMPC  over  the  ASTM  cup  tests,  and  the  sweating  guarded  hot  plate,  is 
that  fabrics  can  be  tested  under  conditions  of  combined  diffusion  and  convection  in  a 
way  that  lets  us  separate  the  two  effects. 

When  the  modified  inverted  cups  are  weighed  periodically,  the  slope  of  the  line  of 
mass  loss  per  area  versus  time  will  give  the  flux  through  the  material  in  terms  of  mass/ 
area-time  (kg/m2-sec).  We  may  also  define  a  water  vapor  concentration  gradient  across 
the  sample  as  the  difference  between  the  saturation  conditions  on  the  water  side  of  the 
sample,  and  the  water  vapor  concentration  of  the  environment  (50%  relative  humidity  at 
23°C).  A  mass  transfer  resistance  may  be  calculated  for  the  material  based  on  equation 
(3.7).  We  know  from  previous  testing  that  the  single  layer  of  PTFE  membrane  has  a 
very  low  water  vapor  resistance  (about  5-8  s/m),  so  without  too  much  error,  we  can  take 
the  calculated  resistance  for  the  PTFE  membrane  as  the  boundary  layer  resistance  due  to 
the  air  flow  over  the  cup.  For  each  of  the  three  air  flow  test  conditions  (0.5  and  3.1  m/s 
tangential,  6.5  m/s  face-on),  we  subtract  the  boundary  layer  resistance  using  the  PTFE 
test  from  the  total  resistance  calculated  for  each  material,  to  obtain  an  intrinsic  water 
vapor  resistance  value  which  should  be  independent  of  the  air  flow  conditions,  and 
which  should  be  directly  comparable  to  the  resistance  measured  in  the  DMPC. 

The  test  comparison  was  run  for  the  same  set  of  fabrics  and  microporous 
membrane  laminates  shown  previously  in  Table  3-1.  In  this  case,  however,  we  were 
able  to  use  the  same  pieces  of  material  for  both  the  DMPC  and  the  modified  ASTM  E  96 
Procedure  BW  tests,  with  the  series  of  ASTM  E  96  tests  being  run  prior  to  the  DMPC 
tests. 

The  calculated  intrinsic  resistance  values  for  the  three  air  flow  conditions  are 
plotted  against  the  DMPC  results  in  Figure  10.  A  schematic  of  the  modified  inverted 
cup  test  is  also  shown  in  Figure  10. 
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Figure  10.  Correlation  of  DMPC  results  with  modified  ASTM  E  96  BW  inverted  cup 
tests,  for  three  air  flow  conditions. 

We  see  again  a  fairly  good  correlation  between  the  results  and  rankings  generated 
between  the  DMPC  and  the  modified  ASTM  E  96  BW  inverted  cup  test,  which  increases 
our  confidence  about  the  reliability  of  the  rankings  of  materials  generated  with  the 
DMPC,  especially  considering  that  we  have  previously  shown  a  very  good  correlation 
with  the  sweating  guarded  hot  plate  test  method. 

3.2.4  Effect  of  Parallel  versus  Countercurrent  Flows  in  the  DMPC 

The  fact  that  we  use  a  log-mean  concentration  difference  in  analyzing  the  results  for 
the  DMPC  means  that  we  recognize  the  direction  of  flow  has  an  influence  on  the 
concentration  profile  down  the  length  of  the  test  sample.  For  parallel  flow,  we  would  expect 
that  the  concentration  difference  between  the  two  sides  of  the  sample  becomes  smaller  at  the 
downstream  end  of  the  sample.  To  maintain  a  more  constant  concentration  gradient  down 
the  length  of  the  sample,  we  would  expect  that  a  counterflow  arrangement  would  promote 
higher  fluxes  ( and  possibly  lower  boundary  layer  resistances).  The  two  flow  situations  are 
illustrated  in  Figure  11. 
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Figure  1 1.  Effect  of  Parallel  or  Countercurrent  Flow  Direction  on  Concentration 
Gradient  Across  Test  Sample. 

We  were  curious  to  see  if  the  direction  of  flow  has  a  large  effect  on  the  results  obtained 
with  DMPC.  We  used  two  materials  to  look  at  this  effect.  The  1 -layer  PTFE  membrane  was 
tested  in  both  parallel  and  counterflow  to  determine  the  relative  effect  on  the  boundary  layers. 
We  also  tested  the  Gore  Tex  in  sample  in  both  the  parallel  and  counterflow  situations.  The 
results  are  shown  in  Figure  12. 
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Figure  12.  Testing  of  Two  Materials  in  Both  Parallel  and  Counterflow  Arrangements  in 
the  DMPC. 

We  do  not  observe  any  difference  in  the  measured  properties  of  the  Gore  Tex  HI 
membrane  laminate  for  the  two  flow  situations.  We  do  see  some  differences  in  the 
measurement  for  the  PTFE  membrane,  which  since  it  has  a  resistance  of  6  to  8  s/m,  is 
essentially  a  measurement  of  the  boundary  layer  resistance.  From  the  slope  of  the  lines  in 
Figure  12,theparallelflowresistanceisabout  105  s/m  and  the  counterflow  resistance  is  about 
95  s/m.  The  countercurrent  flow  resistance  is  lower,  which  we  would  expect,  but  the 
difference  between  the  two  flow  situations  is  not  large  enough  to  be  discernible  for  materials 
with  lower  water  vapor  transmis  sion  rates .  Although  all  the  testing  results  given  in  this  report 
are  for  parallel  flow,  it  may  be  better  practice  to  conduct  testing  using  countercurrent  flow, 
to  maximize  water  vapor  flux,  and  to  maintain  a  more  nearly  constant  concentration 
difference  across  the  test  sample.  Both  methods  would  be  useful  when  studying  the 
hydrophilic  materials,  since  for  the  same  test  conditions  of  relative  humidity  in  the  upper  and 
lower  halves  of  the  DMPC,  the  mean  relative  humidity  (average  of  both  sides)  would  be  quite 
different  down  the  length  of  the  sample  for  the  two  different  flow  situations. 
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3.2.5  Use  of  DMPC  for  Transient  Diffusion  Studies 


The  correlations  we  have  shown  confirm  the  validity  of  using  the  DMPC  to 
determine  the  steady-state  water  vapor  diffusion  properties  of  materials.  However,  in 
contrast  to  the  other  tests,  the  automated  DMPC  apparatus  can  be  used  to  conduct  testing 
of  materials  under  non-steady-state  conditions,  such  as  a  change  in  relative  humidity, 
temperature,  or  pressure  difference  across  the  sample.  The  ability  of  the  DMPC  to 
perform  an  automated  sequence  of  user-defined  test  conditions  is  useful  for  verifying  the 
numerical  solution  of  the  governing  equations  used  to  describe  the  time-dependent 
transport  of  water  vapor  through  hygroscopic  materials.  In  these  transient  situations,  the 
variable  properties  of  the  material  become  very  important,  along  with  factors  such  as  the 
sorption  rate  at  which  a  fiber  takes  up  or  releases  water  vapor  to  the  atmosphere  and  the 
coupling  of  the  differential  equations  describing  the  transport  of  energy  and  mass 
through  the  material. 

To  illustrate  the  use  of  the  DMPC  for  characterizing  transient  diffusion  properties, 
we  again  select  a  group  of  porous  textile  materials  which  have  a  range  of  properties. 

This  group  of  materials  includes  only  permeable  woven  fabrics,  and  is  the  set  of 
materials  which  will  be  used  to  illustrate  experimental  and  numerical  results  throughout 
the  rest  of  this  report.  Table  3-2  lists  the  fabrics,  along  with  pertinent  references  if 
available.  Physical  properties  of  these  fabrics  are  listed  in  Appendix  A. 

Table  3-2.  Woven  Test  Fabrics 


Sample  Identification 

Materials  and  Reference 

Wool 

1 00%  Wool  Twill  Fabric  [25] 

Cotton 

Hot  Weather  Battle  Dress  Uniform  (HWBDU) 

1 00%  cotton  fabric  [63] 

Silk 

Woven  Silk  Fabric,  Plain  Weave 

Wool  /  Polyester 

40%  Wool  1 60%  Polyester  Fabric  [64] 

Nylon  /  Cotton 

Battle  Dress  Overgarment  (BDO)  Shell  Fabric 

50%  cotton/  50%  nylon  fabric  [52] 

Nylon 

1 00%  Nylon  Fabric,  Basket  Weave 

Polyester 

1 00%  Polyester  Fabric 
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We  first  illustrate  the  use  of  the  DMPC  to  obtain  transient  results  for  fabrics 
subjected  to  step  changes  in  relative  humidity.  In  these  experiments,  thermocouples  are 
sandwiched  between  two  layers  of  fabric,  to  record  temperature  changes  as  the  fabric 
absorbs  or  desorbs  water  vapor  from  the  gas  stream  flowing  on  the  two  sides  of  the 
DMPC.  Three  thermocouples  are  used  as  shown  in  Figure  13.  Thermocouple  diameter 
was  1.27  x  10^  m  (0.005  inch),  with  a  response  time  listed  by  the  manufacturer  as  0.04  s 
in  water  and  1  s  in  still  air.  Smaller  thermocouples  with  a  diameter  of  2.54  x  10'5  m 
(0.001  inch)  were  used  initially,  but  proved  to  be  quite  fragile  and  easily  damaged.  The 
temperature  changes  recorded  with  both  sizes  of  thermocouple  were  identical,  so  we 
believe  that  errors  due  to  conduction  and  the  heat  capacity  of  the  thermocouple  wire  are 
minimal. 


Two 
Layers 
of  Fabric 


Constant  Temperature  Nitrogen  Flow 
with  Step  Change  in  Relative  Humidity 


Thermocouples  to 
Data  Acquisition 
System 

o- 


Figure  13.  Instrumented  test  fabric  in  DMPC  to  record  temperature  changes  of 
hygroscopic  fabrics. 

Nine  setpoints  were  used  to  examine  the  coupled  diffusion  of  heat  and  mass  in 
these  hygroscopic  porous  textile  layers,  as  given  in  Table  3-3.  In  this  series  of  setpoints, 
the  pressure  drop  across  the  sample  is  set  to  zero,  so  that  there  is  no  convective  flow 
across  the  sample,  and  transport  takes  place  only  by  diffusion  driven  by  concentration 
differences. 
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Table  3-3.  Nine  Setpoints  for  Transient  Diffusion  Tests. 


Setpoint 

Relative  Humidity  for 
Top  Gas  Flow 

Relative  Humidity  for 
Bottom  Gas  Flow 

1 

0.0 

0.0 

2 

1.0 

1.0 

3 

0.0 

0.0 

4 

0.6 

0.0 

5 

0.8 

0.0 

6 

1.0 

0.0 

7 

1.0 

0.2 

8 

1.0 

0.4 

9 

1.0 

0.6 

The  first  three  setpoints  are  used  to  look  at  the  situation  when  a  completely  dry 
fabric,  equilibrated  at  0%  relative  humidity,  is  suddenly  exposed  to  a  relative  humidity 
of  100%  on  the  two  sides  of  the  fabric  facing  the  gas  flows  on  the  top  and  bottom  of  the 
DMPC.  For  hygroscopic  fabrics,  the  textile  fibers  will  absorb  water  vapor  from  the  gas 
flow,  and  release  the  heat  of  sorption,  which  results  in  a  rise  in  temperature  of  the  fabric, 
as  recorded  by  the  three  thermocouples.  When  the  relative  humidity  is  suddenly 
changed  back  to  0%,  the  water  is  desorbed  from  the  textile  fibers,  and  the  temperature 
drops,  due  to  the  change  of  phase  of  the  water  as  it  leaves  its  sorbed  state  in  the  textile 
fiber  and  vaporizes.  The  rate  at  which  the  temperature  rises  and  falls  is  related  to  the 
mass  transport  and  thermal  transport  properties  of  the  textile  material,  and  the  gas  flows, 
and  serve  as  a  convenient  experimental  verification  of  the  numerical  prediction  of 
transient  behavior,  which  is  the  subject  of  Chapters  5  and  6  of  this  report 

The  next  six  setpoints  are  a  sequence  of  humidity  gradients  across  the  sample, 
where  there  is  a  net  flux  of  water  vapor  from  one  side  of  the  cell  to  another.  Setpoint  #4, 
where  the  relative  humidity  is  suddenly  changed  from  0%  to  60%,  provides  another  set 
of  experimental  results  which  are  particularly  convenient  for  verifying  the  numerical 
code,  since  both  temperature  measurements,  and  the  measurement  of  relative  humidity 
of  the  gas  flow  as  a  function  of  time  are  available. 

An  example  of  the  full  sequence  of  nine  setpoints,  for  the  cotton  fabric,  shown  as  a 
function  of  time,  is  given  in  Figure  14.  For  clarity,  only  one  thermocouple  record  is 
shown  on  Figure  14. 
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Figure  14.  Temperature  changes  of  two  layers  of  cotton  fabric  subjected  to  step  changes 
in  relative  humidity,  at  a  constant  gas  flow  temperature  of  20°C. 

The  large  temperature  changes  due  to  sorption/desorption  are  particularly  evident 
for  setpoints  #2  and  #3. 

The  shape  of  these  transient  temperature  curves  are  a  complex  function  of  the 
velocity  of  the  gas  flows  on  the  two  sides  of  the  fabric  samples,  which  influences  the 
external  heat  and  mass  transfer  coefficients  and  the  thermal  and  mass  transport 
properties  of  the  textile  layers.  An  example  of  the  temperature  transients  for  all  seven 
test  fabrics,  for  setpoint  #2  (step  change  for  0.0  to  1.0  relative  humidity),  is  shown  in 
Figure  15.  Here  only  the  first  four  minutes  are  shown,  to  make  it  easier  to  distinguish 
the  response  of  the  different  materials  shown.  The  peak  temperatures  for  each  of  the 
materials  is  also  shown  on  the  plot. 
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Figure  15.  Temperature  changes  due  to  water  vapor  sorption  for  seven  fabrics  during 
step  change  in  relative  humidity  from  0.0  to  1.0. 

Figure  15  can  be  misleading,  in  that  it  shows  a  single  well-defined  experimental 
temperature  transient  for  each  material.  Since  there  are  concentration  and  temperature 
gradients  down  the  length  of  the  test  sample,  due  to  the  influence  of  the  developing 
thermal  and  concentration  boundary  layers,  the  temperatures  of  the  upstream,  center,  and 
downstream  thermocouples  (refer  to  Figure  9)  are  slightly  different,  as  shown  in  Figure 
16. 
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Figure  16.  Temperature  changes  for  the  three  thermocouples,  for  the  cotton  fabric,  due 
to  water  vapor  sorption  during  step  change  in  relative  humidity  from  0.0  to  1.0. 
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There  is  also  significant  variability  in  the  temperature  traces  obtained  for  different 
pieces  of  the  same  fabric,  at  different  times.  Figure  17  shows  various  results  obtained 
for  different  samples  of  the  cotton  fabric,  again  for  water  vapor  sorption,  under  a  step 
change  in  relative  humidity  from  0.0  to  1.0,  at  20°C. 


Time  (minutes) 


Figure  17.  Variability  in  measured  temperature  changes  for  the  cotton  fabric,  due  to 
water  vapor  sorption  during  step  change  in  relative  humidity  from  0.0  to  1.0. 

Another  transient  measurement,  which  is  useful  for  verifying  numerical 
predictions  of  transient  diffusion  behavior,  is  the  experimental  measurement  of  the  water 
vapor  concentration  change  on  one  side  of  the  fabric  as  the  relative  humidity  on  the 
other  side  of  the  fabric  is  changed.  Setpoint  #4  is  useful  for  this  purpose,  since  there  is  a 
step  change  from  0%  relative  humidity  on  both  sides  of  the  sample,  to  60%  relative 
humidity  one  side.  Following  this  step  change  in  relative  humidity,  the  rate  of  change  of 
the  measured  relative  humidity  on  the  "dry  side"  of  the  cell  is  greatly  affected  by  the 
sorption  kinetics  of  a  hygroscopic  material.  Figure  18  shows  the  change  in  relative 
humidity  on  the  bottom  side  of  the  DMPC  when  the  humidity  on  the  top  side  is  suddenly 
change  to  0.6.  Figure  18  has  had  the  relative  humidity  normalized  by  the  final 
equilibrium  relative  humidity  for  setpoint  #4.  Also  shown  in  this  plot  is  the  value  for 
two  layers  of  the  PTFE  membrane,  which  is  completely  nonhygroscopic,  and  serves  to 
indicate  the  response  time  of  the  relative  humidity  sensors  to  a  step  change. 
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Figure  18.  Relative  humidity  normalized  by  final  equilibrium  value,  during  step  change 
from  0.0  to  0.6,  at  constant  temperature  of  20°C. 

Further  reference  to  these  transient  measurements  will  be  made  in  Chapters  5  and 
6,  where  these  experimental  results  will  be  compared  with  the  results  of  the  numerical 
code  which  solves  the  partial  differential  equations  describing  the  coupled  diffusion  of 
heat  and  mass  through  hygroscopic  porous  textiles. 


3.2.6  Use  of  DMPC  for  Convection/Diffusion  Studies 

The  DMPC  may  also  be  run  with  a  specified  pressure  drop  across  the  sample  so 
that  transport  takes  place  across  the  sample  by  both  diffusion  (driven  by  concentration 
differences)  and  convection  (driven  by  gas  phase  pressure  differences).  Experiments  of 
this  type  are  useful  for  verifying  the  numerical  code  presented  in  Chapter  6,  which 
simulates  all  aspects  of  the  transport  processes  taking  place  in  the  DMPC.  The  simplest 
experiment  to  run  is  shown  in  Figure  19.  Gas  enters  the  DMPC  at  a  relative  humidity  of 
1.0  on  the  top  portion  of  the  cell,  and  0.0  on  the  bottom  of  the  cell.  A  series  of  setpoints 
is  run  where  the  flow  outlet  one  side  of  the  cell  is  gradually  restricted.  This  causes  the 
pressure  in  one  side  of  the  cell  to  be  higher  than  in  the  other,  causing  convective  flow 
across  the  sample,  in  addition  to  the  diffusion  flux  taking  place  due  to  the  concentration 
gradients.  In  this  particular  experimental  series,  the  tests  were  again  conducted  on  both 
one  and  two  layers  of  the  fabrics  given  in  Table  3-2.  The  two  layer  tests  were  also 
instrumented  with  the  three  thermocouples  as  shown  in  Figure  13. 
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Figure  19.  Convection/diffusion  experiment  in  the  DMPC:  example  shows  bottom 
outlet  flow  restricted  to  force  convective  flow  across  sample,  which  opposes  diffusive 
flux  of  vapor. 

The  measurement  of  relative  humidity  at  the  bottom  outlet  of  the  cell,  as  a 
function  of  pressure  drop  across  the  sample,  is  a  experimental  curve  which  is  convenient 
to  use  for  comparison  to  the  numerical  flow  simulations  presented  in  Chapter  6.  An 
example  of  a  typical  experimental  curve,  for  one  layer  of  the  cotton  and  polyester  fabric, 
is  shown  below  in  Figure  20. 
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Figure  20.  Experimental  curve  of  measured  relative  humidity  at  outlet  of  DMPC,  as 
pressure  drop  across  the  fabric  is  varied. 
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Figure  20  is  particularly  interesting  because  the  cotton  fabric  and  the  polyester 
fabric  have  nearly  identical  diffusion  resistances.  They  differ  greatly  in  their  air 
permeability  properties  (covered  in  the  next  section),  so  that  when  they  are  both  tested 
under  conditions  of  the  same  pressure  drop,  there  is  much  more  convective  flow  through 
the  polyester  fabric  than  through  the  cotton  fabric. 
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3.3  Automated  Convective  Gas  Flow  Test  Method 
3.3.1  Introduction 

Fabrics  which  absorb  water  vapor  from  the  atmosphere  (such  as  cotton  or  wool) 
experience  fiber  swelling  which  tends  to  close  off  the  pores  in  the  fabric  and  increase  the 
resistance  to  convective  flow  through  the  material. 

This  effect  is  important  for  its  influence  on  the  ability  of  the  fabric  layer  to  pass 
heat  and  water  vapor  through  its  structure,  since  fiber  swelling  reduces  the  free  air 
volume  within  the  fabric  and  affects  both  the  convective  and  diffusive  transport  of 
energy  and  mass. 

Changes  in  fabric  permeability  as  a  function  of  relative  humidity  are  also 
important  since  this  will  influence  the  transport  of  chemical  agents  in  vapor  or  aerosol 
form.  If  testing  is  conducted  at  only  one  relative  humidity,  we  may  have  quite  different 
results  than  if  we  performed  those  tests  at  another  relative  humidity.  For  example,  we 
will  show  later  that  it  is  easy  to  find  fabrics  which  double  their  resistance  to  convective 
flow  due  simply  to  changes  in  relative  humidity.  A  set  of  fabrics  evaluated  for  aerosol 
filtration  properties  at  one  condition  of  relative  humidity  may  have  different  rankings  at 
another  relative  humidity  test  condition,  which  could  possibly  influence  our  decision  on 
which  fabric  provides  the  best  protection  for  the  soldier. 

Changes  in  fabric  permeability  have  as  a  function  of  relative  humidity  have  been 
studied  by  Wehner,  Miller,  and  Rebenfeld  [65],  who  found  that  there  can  be  large 
changes  in  convective  gas  flow  transport  properties  of  woven  and  nonwoven  textile 
materials  due  to  changes  in  fabric  structure  caused  by  fiber  swelling.  The  experimental 
methods  we  developed  are  similar  to  those  used  by  Wehner,  Miller,  and  Rebenfeld  to 
characterize  this  humidity-dependent  permeability. 

Most  studies  of  gas  and  liquid  flow  through  porous  materials  have  focused  on 
correlation  of  structural  properties,  such  as  gas  phase  volume  fraction,  and  fiber 
diameter,  with  pressure  drop  -  flow  rate  data  [66-70]. 

There  are  many  definitions  of  the  permeability  or  the  flow  resistance.  Usually,  the 
permeability  is  given  as  a  definition  from  Darcy's  Law  such  as  [71]: 


v  _  ~kD  ^ 

[i  Ax 

v  =  apparent  gas  flow  velocity  (m/s) 
kD  =  permeability  constant  (m2) 

|i  =  gas  viscosity  (17.85  x  10‘6  kg/m-s  for  N2) 
Ap  =  pressure  drop  across  sample  (N/m2  or  Pa) 
Ax  =  thickness  (m) 


(3.14) 
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For  low  velocity  flows,  where  the  apparent  Reynolds  number  (based  on  nominal 
particle  diameter  or  pore  sizes)  remains  much  less  than  about  10,  a  plot  of  pressure  drop 
versus  volumetric  flow  rate  or  velocity  will  give  a  constant  value  for  the  permeability 
constant  kp.  At  higher  flow  rates,  where  inertial  effects  begin  to  compete  with  viscous 
flow  effects,  pressure  drop  -  flow  rate  plots  will  begin  to  deviate  from  linearity,  and 
inertial  effects  need  to  be  considered.  Previous  work  on  air  penetration  through  clothing 
systems  has  shown  that  air  pressure  differences  across  textile  layers,  due  to  factors  such 
as  wind  or  body  movement,  are  usually  less  than  100  Pa  [72-75].  For  the  testing 
presented  in  this  chapter,  flow  rates  and  pressure  drops  are  low  enough  so  that  inertial 
effects  are  not  readily  apparent  in  the  experimental  results.  Inertial  effects  would  need  to 
be  considered  for  testing  at  higher  flow  rates. 

3.3.2  Test  Method 


The  automated  gas  permeability  test  we  developed  is  shown  in  Figure  21.  It  is 
very  similar  to  the  DMPC  test.  The  major  differences  are  that  only  two  flow  controllers 
and  one  humidity  meter  are  required. 
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Nitrogen  streams  consisting  of  a  mixture  of  dry  nitrogen  and  water-saturated 
nitrogen  flow  into  the  gas  permeability  cell.  The  relative  humidity  of  these  streams  is 
varied  by  controlling  the  proportion  of  the  saturated  and  the  dry  components.  By  varying 
the  flow  rate,  and  measuring  the  pressure  drop  across  the  test  sample,  we  may  obtain  a 
relationship  for  volumetric  or  mass  flow  rate  through  the  sample  as  a  function  of  pressure 
drop  across  the  sample,  which  is  related  to  the  Darcy  permeability  kD. 

The  mass  flow  rates  are  controlled  by  MKS  model  1259C  mass  flow  controllers, 
with  a  Model  247C  4-Channel  Readout  (MKS  Instruments,  Inc.).  At  constant  mass  flow, 
the  true  volumetric  flow  rate  will  vary  with  temperature;  the  flow  rate  set  by  the  MKS 
controllers  is  indicated  in  terms  of  volumetric  flow  rates  at  standard  conditions  of  0°C 
and  atmospheric  pressure  (1.01325  x  105  Pa)  The  actual  volumetric  flow  rate  at  different 
temperatures  may  be  found  from  the  mass  flow  rate,  the  temperature,  and  the  pressure  of 
the  actual  flow. 

The  mass  flow  rate  may  be  found  from  the  volumetric  flow  rate  given  by  the 
mass  flow  controllers: 
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mv  =  mass  flow  rate  of  water  vapor  (kg  /  s) 
mNi  =  mass  flow  rate  of  dry  nitrogen  (kg  /  s) 
m(otal  =  total  mass  flow  rate  of  gas  (kg  /  s) 

Mw  =  molecular  weight  of  water  (18.0  kg/kmole) 

MNi  =  molecular  weight  of  dry  nitrogen  (28.0  kg  /  kmole) 

<{>=  relative  humidity 

pa  =  atmospheric  pressure  (101325  Pa) 

ps  =  saturation  vapor  pressure  (water  vapor)  (Pa) 

<2,  =  volumetric  flow  rate  at  standard  conditions  of  273  K  (0°C)  (m3  /  sec) 

Q  =  total  volumetric  flow  rate  (m3  /  sec) 

R  =  universal  gas  constant  (8314.5  N-m/kg-K) 

T  =  temperature  (K) 

Ts  =  temperature  at  standard  conditions  of  273  K 
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3.3.3  Test  Procedure 


The  automated  air  permeability  test  is  conducted  under  the  control  of  a  PC 
interfaced  to  the  flow  controllers  and  instrumentation  through  a  digital  voltmeter  and  a 
GPIB  (see  Figure  21).  The  test  sequence  is:  at  a  given  relative  humidity,  to  vary  the  flow 
rate  through  the  test  sample  and  record  the  resulting  pressure  drop,  for  a  variety  of  flow 
rates,  and  then  to  repeat  the  process  for  another  relative  humidity.  In  between  each  group 
of  setpoints  at  a  given  relative  humidity,  a  setpoint  at  no  flow  is  included.  This  allows  us 
to  see  if  the  zero  point  for  the  differential  pressure  transducer  has  drifted  from  true  zero 
(which  it  does  slowly  over  time).  This  allows  us  to  shift  the  data  back  to  zero  in 
analyzing  the  data. 

The  usual  test  sequence  of  test  points  starts  at  0%  relative  humidity  (dry  nitrogen) 
and  flow  rates  of  2000, 1500,  1000, 750,  and  500  cm3/min  flows  through  the  sample  as 
indicated  on  the  MKS  controllers.  After  this  sequence,  the  flow  is  shut  off,  and  data  is 
taken  to  determine  the  zero  shift  of  the  transducer.  This  process  is  repeated  for 
humidities  of  20%,  40%,  60%,  80%,  and  100%  relative  humidity. 

For  each  relative  humidity,  we  may  plot  the  pressure  drop  versus  the  mass  flow 
rate,  volumetric  flow  rate,  or  apparent  flow  velocity,  and  from  the  slope  of  the  line, 
determine  the  permeability  constant. 

Figure  22  shows  plots  of  pressure  drop  versus  volumetric  flow  rate  for  one  layer 
of  the  cotton  and  the  polyester  fabrics,  given  previously  in  Table  3-2.  The  slope  of  each 
set  of  lines  is  related  to  the  permeability  constant  for  that  test  condition  of  relative 
humidity.  We  can  see  very  clearly  that  the  hygroscopic  cotton  fabric  shows  a  consistent 
variation  with  relative  humidity,  while  the  relatively  nonhygroscopic  polyester  fabric 
shows  no  variation  with  relative  humidity. 


Volumetric  Flow  Rate  (m3/s) 

Figure  22.  Pressure  drop  versus  volumetric  flow  rate  for  two  fabrics  as  a  function  of 
relative  humidity 
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From  the  data  shown  in  Figure  22,  we  may  calculate  the  convective  gas  flow 
resistance  from  Darcy's  Law  for  the  two  fabrics,  over  the  range  of  relative  humidity  test 
conditions. 

As  we  stated  previously,  we  are  ignoring  inertial  effects  in  our  analysis  of  the 
flow  rate/pressure-drop  data.  We  should  also  note  that  another  reason  this  method  of 
simply  drawing  straight  lines  through  the  pressure-drop/flow  rate  data  is  not  strictly 
correct  for  gas  flows  is  that  the  density  is  dependent  on  the  absolute  gas  pressure  on  the 
two  sides  of  the  test  sample.  A  more  correct  expression  for  the  permeability  as  a 
function  of  pressure  drop  in  gas  flows  is  given  by  Dullien  [76]: 
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,  average  pressure  in  sample 


P,  =  upstream  pressure 
p2  =  downstream  pressure 


This  expression  has  not  been  used  for  the  pressure  drop/flow  rate  data,  since  at 
the  low  flow  rates  and  pressures  used  in  present  apparatus,  the  assumption  of 
incompressibility  does  not  seem  to  have  introduced  any  obvious  errors. 

The  automated  air  permeability  apparatus  provides  plots  of  pressure  drop  versus 
either  mass  flow  rate  or  volumetric  flow  rate.  Volumetric  flow  rate  is  the  most  convenient 
to  use,  so  the  permeability  constant  may  be  found  from  Equation  (3.14)  as: 
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|i  =  gas  viscosity  (17.84  x  10'6  kg/m-s  for  N2  at  20°C) 

Q  =  total  volumetric  flow  rate  (m3/s) 

A  =  apparent  sample  flow  area  (9.678x10-4  m2  for  present  sample  holder) 
Ax  =  thickness  (m) 

Ap  =  pressure  drop  across  sample  (N/m2  or  Pa) 


Fortextiles,  although  thickness  measurements  seemsimple,  they  are  often  problematic, 
and  can  be  a  large  source  of  error  if  they  are  incorporated  into  reported  measurements  of 
Darcy  permeability.  It  is  preferable  to  present  the  pressure-drop/flow  rate  results  in  terms 
of  an  apparent  flow  resistance  defined  as: 
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Rd  =  apparent  Darcy  flow  resistance  (nr1) 


(3.21) 


The  Darcy  permeabilility  can  thus  be  found  from  the  apparent  flow  resistance  as: 


(3.22) 
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For  the  low  flow  rates  and  pressure  drops  used  in  this  study,  the  definition  of 
Darcy  flow  resistance  RD  is  a  useful  concept,  since  the  flow  resistances  of  materials 
measured  individually  can  be  added  together  to  give  a  total  flow  resistance.  An  example 
of  this  is  shown  in  Figure  23  for  the  polyester  fabric  from  Table  3-2.  The  polyester 
fabric  is  used  to  illustrate  the  additivity  of  flow  resistances  since  it  is  not  affected  by 
humidity-dependent  porosity  changes. 


Relative  Humidity 


Figure  23.  Illustration  of  the  additivity  of  Darcy  flow  resistance  for  one  and  three  layers 
of  nonhygroscopic  polyester  fabric. 

Figure  23  shows  that  the  measured  Darcy  flow  resistance  for  three  layers  of  the 
polyester  fabric  is  equal  to  three  times  the  flow  resistance  of  the  single  layer  of  fabric. 
Although  the  concept  of  the  additivity  of  Darcy  flow  resistance  is  valid  for  low  flow 
rates,  it  would  not  be  safe  to  rely  upon  it  for  flow  rates  where  inertial  effects  become 
important. 
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The  measured  Darcy  flow  resistance  of  the  seven  fabrics  given  in  Table  3-2,  as  a 
function  of  relative  humidity,  is  shown  in  Figure  24. 
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Figure  24.  Apparent  flow  resistance  of  seven  fabrics  as  a  function  of  relative  humidity. 

As  expected,  the  hygroscopic  fabrics  such  as  cotton,  wool,  and  silk,  show  a  large 
change  in  the  resistance  to  convective  flow  at  the  higher  humidities,  due  to  fiber  swelling, 
and  a  decrease  in  free  air  volume  in  the  fabric,  andpossibly,  some  increasein  fabric  thickness. 
The  fabrics  which  are  much  less  hygroscopic,  such  as  the  polyester  and  nylon  fabrics,  show 
much  less  variation  with  relative  humidity. 
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There  are  several  examples  of  fabrics  which  change  their  relative  air  permeability 
rankings  based  on  the  relative  humidity  at  which  they  are  tested.  Of  special  interest  to  us  is 
the  reversal  of  rankings  shown  by  the  Cotton  and  the  Nylon/Cotton  fabric  (shown  in  Figure 
25).  These  two  fabrics  are  used  as  the  outer  shell  fabrics  in  different  versions  of  military 
chemical  protective  uniforms.  Laboratory  testing  (aerosol  and  liquid/vapor)  conducted  to 
characterize  chemical  agent  transport  properties  under  convective  flows  are  often  earned  out 
at  constant  flow  rate  or  pressure  drop  conditions.  The  variation  of  the  intrinsic  permeability 
of  these  fabrics  as  a  function  of  relative  humidity  would  affect  the  evaluation  of  chemical 
agent  testing  conducted  using  laboratory  tests,  and  is  one  possible  source  of  the  scattered 
results  often  seen  in  laboratory  tests  of  chemical  agent  transport  properties.  The  humidity- 
dependent  transport  properties  are  also  of  obvious  importance  in  the  actual  design  and  use 
of  clothing  systems  incorporating  these  two  fabrics,  particularly  under  use  conditions  where 
appreciable  convective  flows  through  the  clothing  system  are  expected. 


Figure  25.  Reversal  of  air  permeability  ranking  due  to  relative  humidity  test  conditions  for 
two  fabrics. 
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A  more  complete  study,  with  approximately  50  different  types  of  fabrics,  is  presently 
being  conducted  to  explore  the  relationship  between  fabric  structural  parameters,  air 
permeability,  and  the  changes  in  air  permeability  due  to  fiber  swelling,  using  concepts 
available  in  the  literature  [65-71].  Although  the  study  is  ongoing,  and  is  outside  the  scope 
of  the  work  contained  in  this  thesis,  the  behavior  of  nylon  fabrics  will  be  mentioned.  Close 
examination  of  Figure  24  shows  that  the  nylon  fabric  seems  to  show  a  decrease  in  flow 
resistance  (increase  in  permeability)  at  high  humidities,  which  is  counter  to  the  behavior  of 
other  types  of  fabrics.  This  type  of  behavior  is  postulated  to  be  caused  by  the  tendency  of 
nylon  fibers  to  swell  axially  rather  than  radially  [77]  as  most  other  textile  fibers  do,  thereby 
causing  fabric  pores  to  open  up  rather  than  close  down.  Our  measurements  on  approximately 
15  nylon  fabrics,  of  which  five  are  shown  below  in  Figure  26,  show  that  this  a  consistent 
property  of  nylon  fabrics  which  is  common  to  many  types  of  fabric  weaves  and  thickness. 


Relative  Humidity 

Figure  26.  Decrease  in  permeability  of  five  nylon  fabrics  as  a  function  of  relative  humidity. 
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3.3.4  Sorption  Scaling  Approach  to  Provide  Darcy  Permeability  Coefficient  for 
Fabrics  With  Humidity-Dependent  Porosity 


Most  hygroscopic  fabrics  we  have  looked  at  exhibit  a  general  shape  such  as  that 
shown  by  the  cotton  fabric,  as  seen  in  Figure  24.  There  is  clear  evidence  of  fiber 
swelling  at  high  humidities,  which  has  a  large  effect  on  the  flow  resistance. 

The  general  shape  of  Darcy  flow  resistance  versus  relative  humidity  curve 
follows  the  shape  of  the  curve  for  the  sorption  isotherm  of  cotton.  We  have  previously 
defined  a  variable  describing  the  volume  fraction  of  water  dissolved  in  the  solid  phase, 
which  is  directly  related  to  the  sorption  isotherm: 
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A  plot  of  the  volume  fraction  of  water  absorbed  by  the  fiber  as  a  function  of 
relative  humidity  is  shown  in  Figure  27,  along  with  the  measured  Darcy  flow  resistance 
curve,  using  properties  for  the  cotton  fabric  given  in  Appendix  A: 
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Figure  27.  Volume  fraction  of  water  absorbed  by  the  fiber  for  the  100%  cotton  fabric 
compared  to  the  Darcy  flow  resistance  as  a  function  of  relative  humidity. 


85 


We  can  use  the  similarity  in  shape  between  the  sorption  isotherm  and  the  flow 
resistance  curve  to  construct  an  approximation  for  the  change  in  apparent  flow  resistance 
as  a  function  of  relative  humidity.  This  approach  is  useful  because  an  experimental 
curve  of  permeability  as  a  function  of  relative  humidity  is  not  always  be  available,  and 
the  convective  transport  properties  are  tied  to  the  volume  fraction  of  air  space  available 
in  the  porous  material,  which  is  the  main  factor  affecting  the  convective  flow  properties. 

Using  the  similarity  of  the  flow  resistance  and  sorption  curves,  a  simple  scaling 
approach  to  calculate  the  effective  flow  resistance  of  the  fabric  as  a  function  of  relative 
humidity  (<j>)  can  be  written  as: 


«(♦)  =  **  + 


v  ^bwsat  ) 


(3.24) 


R^  Darcy  permeability  of  fabric  at  <j>=0.0  [m2] 

Rsat  Darcy  permeability  of  fabric  at  (|>=1.0  [m2] 
e.  Volume  fraction  of  bound  water  at  6=1.0 
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This  simple  approach  works  well  enough  for  the  cotton,  wool,  and  silk  fabrics, 
but  may  not  be  appropriate  for  the  nylon  fabrics,  which  have  a  less  straightforward 
relationship  between  the  sorption  isotherm  and  the  curve  of  Darcy  flow  resistance  versus 
relative  humidity. 


3.4  Use  of  DMPC  to  Measure  Humidity-Dependent  Air  Permeability  of  Fabrics 


The  automated  air  permeability  apparatus  shown  in  Figure  21  uses  the  traditional 
flow  cell  for  these  types  of  studies:  a  circular  pipe  with  an  approach  and  exit  section 
which  are  long  compared  to  the  thickness  of  the  test  material.  We  were  curious  to  see 
how  well  we  could  reproduce  the  air  permeability  results  by  performing  the  same  test  in 
the  DMPC.  The  reason  for  doing  this  is  that  one  automated  series  of  setpoints  could 
determine  all  diffusion  and  convective  flow  properties  without  changing  samples,  or 
changing  test  cells,  which  would  further  increase  the  number  of  tests  which  could  be 
done  per  day.  Such  a  test  would  have  great  value  for  laboratories  which  conduct  testing 
for  quality  control  purposes,  and  the  automated  nature  of  the  apparatus  would  also  make 
the  test  device  useful  for  nearly  real-time  monitoring  of  the  transport  properties  of  textile 
properties  during  the  manufacturing  process. 

The  DMPC  may  be  converted  to  an  air  permeability  apparatus  by  setting  the  flow 
for  the  lower  inlet  to  zero,  and  closing  the  restriction  valve  for  the  upper  outlet.  The  data 
acquisition  and  control  program  is  identical  to  that  used  for  the  normal  automated  air 
permeability  apparatus  shown  in  Figure  21,  except  that  the  proper  sample  flow  area  must 
be  used.  The  DMPC  configuration  for  the  convective  flow  property  testing  is  shown  in 
Figure  28. 
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Figure  28.  DMPC  configuration  for  measuring  humidity-dependent  air  permeability  of 
textiles. 


We  were  surprised  to  see  that  the  DMPC  in  this  configuration  gives  results  which 
are  comparable  to  those  obtained  using  the  more  traditional  type  of  permeability  cell,  as 
shown  in  Figure  29. 
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(a)  Air  Permeability  Cell 


(b)  DMPC 


Figure  29.  Apparent  flow  resistance  of  seven  fabrics  as  a  function  of  relative  humidity  as 
determined  in  the  air  permeability  flow  cell  and  the  DMPC. 


There  is  not  a  perfect  agreement  between  the  two  test  cells,  but  the  rankings  and 
relative  trends  are  the  same  for  each  set  of  results.  Since  identical  samples  were  not 
used,  it's  difficult  to  say  if  the  small  differences  seen  are  due  to  sample  variability,  or  to 
some  real  differences  in  the  test  conditions,  e.g.,  some  errors  in  the  apparent  flow  area 
used  for  each  test.  We  plan  to  continue  to  address  the  possibility  of  a  single  test  cell 
which  can  determine  both  diffusion  and  convection  transport  properties  in  the  context  of 
an  improved  version  of  the  DMPC. 

3.5  Conclusions 

The  dynamic  moisture  permeation  cell  permits  rapid  testing  of  small  quantities  of 
permeable  fabrics  and  semipeimeable  laminates  under  a  wide  variety  of  test  conditions. 
This  allows  determination  of  a  material's  transport  behavior  under  test  conditions  which 
are  difficult  or  impossible  to  reach  using  existing  standard  laboratory  test  methods. 

Water  vapor  permeation  results  obtained  with  the  DMPC  are  in  excellent 
agreement  with  those  from  the  ISO  1 1092  sweating  guarded  hot  plate  test  method,  and 
from  a  modified  inverted  ASTM  E  96  cup  test. 

The  DMPC  is  particularly  useful  for  characterizing  transient  diffusion  of 
hygroscopic  fabrics  subjected  to  step  changes  in  relative  humidity.  It  provides  excellent 
control  over  temperatures,  pressures,  and  vapor  concentrations,  which  is  necessary  for 
accurately  determining  the  time-dependent  and  nonlinear  transport  properties  of  clothing 
materials.  The  DMPC  also  provides  a  controlled  means  of  testing  porous  fabrics  under 
conditions  of  combined  diffusion  and  convective  transport,  in  a  way  that  provides 
experimental  data  to  verify  numerical  models  of  the  transport  processes  occurring  in 
hygroscopic  porous  textiles. 

The  automated  air  permeability  apparatus  provides  experimental  data  on 
convective  gas  flow  transport  properties,  e.g.  Darcy  permeability  or  Darcy  flow 
resistance.  It  provides  a  means  of  exploring  and  characterizing  the  way  in  which  fabric 
structural  changes,  caused  by  fiber  swelling  at  high  humidities,  can  drastically  change 
the  air  permeability  of  fabrics  incorporated  into  clothing  systems. 
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CHAPTER  4 


NUMERICAL  METHODS 


4.1  Introduction 

The  governing  equations  given  in  Chapter  3  may  be  solved  by  using  finite- 
difference  techniques  to  discretize  the  equations  and  cast  them  into  algebraic  form,  and 
then  to  solve  the  set  of  equations  by  an  iterative  process  for  each  time  step.  For  the 
equations  which  involve  diffusion  only,  with  no  convection  driven  by  pressure 
differences,  the  solution  of  the  unsteady  diffusion  equation  is  straightforward,  and  there 
are  a  wide  variety  of  finite-difference  techniques  which  will  all  work  quite  well. 

For  the  case  of  combined  diffusion  and  convection,  the  need  to  satisfy  the 
continuity  of  mass  and  conservation  of  momentum  relations,  with  fluid  velocity  driven 
by  pressures  which  are  known  only  at  discrete  grid  points,  presents  special  problems 
which  have  been  the  subject  of  much  research  in  the  area  of  computational  fluid 
dynamics.  The  method  we  use  to  solve  the  system  of  governing  equations  is  described 
below. 

4.2  SIMPLEC  Program 

The  SIMPLEC  program  is  a  modification  of  the  SIMPLER  (Semi-Implicit 
Method  for  Pressure-Linked  Equations-Revised)  algorithm  described  by  Patankar  [78]. 
The  SIMPLEC  program  has  been  modified  to  make  it  possible  to  solve  unsteady  partial 
differential  equations  of  the  general  form: 

Jt(p*)+v-(ps4))=v.(n>)+s  (4.i) 

p=  density 

<j>  =  specific  dependent  variable 
u=  velocity  field 
T  =  diffusion  coefficient  for  <|> 

S  =  volumetric  source  term  for  § 

One  special  feature  of  the  SIMPLEC  code  is  that  it  creates  finite-difference 
approximations  of  the  partial  differential  equations  by  using  control  volumes,  rather  than 
just  equations  for  a  set  of  grid  points.  This  ensures  continuity  within  a  control  volume, 
and  lessens  the  need  for  interpolation  between  grid  points,  since  continuity  and 
conservations  relations  for  mass  and  energy  are  satisfied  automatically  by  the 
discretization  equations.  Another  special  feature  is  the  special  treatment  of  the  equations 
of  momentum  and  continuity.  The  momentum  equations  also  have  the  form  of  equation 
4.1,  but  the  source  term  for  the  momentum  equation  includes  the  pressure  gradient, 
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which  is  the  driving  force  for  fluid  motion.  The  essence  of  the  SIMPLE,  SIMPLER,  and 
SIMPLEC  algorithms  is  the  relationships  which  can  be  developed  between  the  velocity 
field,  the  momentum  equations,  and  the  continuity  equation.  By  an  iterative  method,  the 
pressure  field  is  adjusted  so  that  the  velocity  field  produced  by  the  pressure  gradients  also 
satisfies  the  continuity  equation. 

The  discretization  equations  contain  the  unknown  values  of  the  variable  f  at 
discrete  locations,  located  at  the  main  grid  points.  Control  volumes  are  defined  at  each 
grid  point,  and  the  main  discretization  equations  are  formed  by  integrating  equation  4.1 
over  the  control  volume.  Control  volume  boundaries  are  usually  placed  so  that  they 
coincide  with  actual  material  boundaries,  so  the  control  volume  interface  may  also  be  an 
actual  material  interface.  The  form  of  the  discretization  equations,  based  as  they  are  on  a 
control  volume  rather  than  on  grid  points,  make  it  very  easy  to  satisfy  conservation  and 
continuity  across  material  interfaces,  which  often  present  problems  for  finite-difference 
schemes  based  on  grid  points  only.  A  schematic  of  the  arrangement  of  control  volumes 
and  grid  points  for  a  Cartesian  coordinate  system  is  shown  in  Figure  30. 


Figure  30.  Control  volumes  and  grid  points  for  finite-difference  method. 

Figure  30  shows  the  grid  numbering  scheme  as  used  by  Patankar  [78]  in  deriving 
the  discretization  scheme.  An  example  of  the  discretization  equation,  for  the  situation  of 
the  diffusion  equation  which  contains  no  convection  terms,  is  presented  later  in  this 
chapter  in  Section  4.3  and  4.4.  The  letter  P  refers  to  the  main  grid  point  about  which  the 
discretization  equation  is  being  written  and  integrated,  the  letters  W,N,E,  and  S  refer  to 
the  West,  North,  East,  and  South  main  grid  points,  and  the  lower-case  letters,  w,n,e,  and 
s,  refer  to  the  west,  north,  east,  and  south  locations  for  the  control  volume  faces.  The 
grid  numbering  scheme  becomes  very  important  because  there  are  really  two  sets  of 
control  volumes  and  grid  points  used  in  the  SIMPLE  family  of  finite-difference  methods. 
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The  special  treatment  used  for  the  momentum  and  continuity  equation  involves 
staggering  the  location  of  the  calculated  velocity  components  so  that  they  are  known  only 
at  the  control  volume  interfaces,  and  not  at  the  main  grid  points.  This  is  a  natural 
consequence  of  the  control  volume  approach,  because  the  convection  term  which  brings 
material  or  energy  into  a  control  volume  is  most  easily  thought  of  as  entering  through  the 
boundary  of  the  control  volume  at  the  control  volume  face.  The  use  of  a  staggered 
control  volume  for  the  velocity  components  also  allows  the  pressures  calculated  at  the 
main  grid  points  to  more  easily  be  incorporated  as  the  driving  force  for  fluid  flow,  since 
the  pressures  and  velocities  are  being  calculated  at  different  locations.  An  example  of  a 
typical  staggered  control  volume  for  the  velocity  components  is  shown  in  Figure  31. 


Main 

Control 

Volume 


Main 

Grid 

Point 


Figure  31.  Locations  of  staggered  control  volume  for  velocity  components  and 
momentum  equations. 


The  discretization  equations  are  solved  within  the  SIMPLEC  main  program. 
Facilities  exist  within  the  program  to  either  solve  the  problem  in  a  steady-state  manner, 
or  to  incorporate  a  time  step,  and  solve  unsteady  problems.  Within  a  time  step,  or  for  a 
steady  state  problem,  nonlinearities  are  handled  by  iteration  until  the  solution  converges. 
If  after  a  number  of  iteration  cycles,  the  values  of  the  calculated  variables  have  not 
changed  by  a  certain  specified  small  amount,  the  solution  is  considered  converged,  either 
for  the  the  steady-state  problem,  or  for  that  particular  time  step  in  an  time-varying 
problem.  Various  schemes  such  as  underrelaxation  of  specific  variables  or  source  terms 
are  available  to  aid  in  the  convergence  of  nonlinear  problems,  and  are  especially  helpful 
in  the  case  of  complex  source  terms. 

Specific  problems  are  set  up  within  a  separate  user  subroutine,  several  examples 
of  which  are  given  later  in  Chapters  5, 6,  and  7.  The  user  subroutines  specify  solution 
sequences  and  parameter  for  the  problem  of  interest,  and  define  how  source  terms  and 
boundary  conditions  are  to  be  handled.  The  main  program  solves  the  set  of  equations 
given  by  equation  4.1,  where  the  variables,  source  terms,  and  diffusion  coefficients  have 
all  been  defined  by  the  user  subroutine. 
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The  complete  set  of  convection/diffusion  finite-difference  equations  used  by 
SIMPLE,  SIMPLER,  and  SIMPLEC  are  widely  available  [81-83].  The  complete  set  of 
algebraic  equations  are  not  presented  here,  however,  an  example  of  the  set  of  finite- 
difference  equations  for  the  unsteady  diffusion  equation,  which  does  not  include  the 
convection  term,  is  presented  in  the  next  section. 

4.3  Progamming  of  Exponential  Scheme  for  the  SIMPLEC  Program 


The  general  control-volume  discretization  method  for  the  general  transport 
equation  contained  in  the  SIMPLEC  program  is  based  on  the  fully  implicit  finite- 
difference  method.  For  cases  we  will  be  examining  later,  some  situations  involve 
diffusion  processes  only,  and  there  is  no  need  to  use  the  SIMPLEC  numerical  code  to 
solve  the  pressure-linked  momentum  equations.  For  these  situations,  there  are  some 
reasons  to  use  a  finite-difference  scheme  which  may  have  some  advantages  over  the  fully 
implicit  scheme.  For  example,  an  alternate  discretization  method,  called  the  exponential 
scheme,  was  developed  by  Patankar  and  Baliga  [82].  This  method  was  integrated  as  an 
option  into  the  SIMPLEC  program,  and  is  described  below. 

We  will  illustrate  the  discretization  scheme  for  the  partial  differential  equation 
given  by: 


=:—(  F  — 1  +  — f  r-^l+5 

dt  dx  y  dyj  dx  y  dy  J 
with  the  source  term  linearized  so  that 


(4.2) 


S  -Sc  +  Sp§p 


(4.3) 


The  grid  notation  was  given  previously  in  Figure  30,  and  for  the  ^-direction  only 
in  Figure  32. 
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Figure  32.  Discretization  of  grid  for  x-direction  only. 
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The  generalized  finite  difference  equation  is  given  by  [78]: 

At 

— ir~  [^><l)/>  +  (l-^>)<t)f]-[^v<l)tv  +  (1_^v)<t)H7] 
oxw 

+~fy~  [^V<l)iV  +  (l“J^)<t)Ar]“[^5<t)P+(l_//>)<l)p] 
+ScAxAy + 5fAxAy[/p(J)  p  +  (l — ^>)<j)^  j 


In  these  equations  the  weighting  factor  f(fE,fw,fN,  fs)  refers  to  the  variation  of 
the  old  (<j>°)  and  new  (<)>)  values  of  the  variable  <(>  within  the  current  time  step. 

The  numerical  values  of  the  weighting  factor  determine  the  type  of  finite- 
difference  scheme.  The  explicit  scheme  results  if/=  0.0,  the  Crank-Nicolson  scheme  is 
the  result  of  using/=  0.5,  and  the  fully  implicit  scheme  is  obtained  by  using/  =1.0. 

We  can  rearrange  the  equation  by  bringing  all  the  terms  containing  the  new  value 
of  <|>  to  the  left-hand-side: 


pAxAy  .  TeAy  .  TwAy  Tn Ax  Ts Ax 
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If  we  define  coefficients  as: 


(4.6) 

.  _r*Ay 

(4.7) 

rnAx 

(4.8) 

r.Ax 
fl-S  =  /s  \ 

(H 

(4.9) 

0  _  pAxAy 
p  At 

(4.10) 

dp  =  (dE +dw  +  dN  +  ds-  SPAxAy)fp  +  dp 

(4.11) 

the  discretization  equation  may  be  written  as: 


aptyP  - 


aEfE$E 

aE(^~fE)^E 

+awfw$w 

y  1  j 

+aw(l_/w)<t)w 

+aNfN$N 

+%(1“/^)A 

+asfs$s  , 

+[<3p  +  (1 —fp  )(SpAxAy  -dp-d^-d^-d^  +  ScAxAy 


(4.12) 


Another  general  form  of  this  discretization  equation  is  given  by  Patankar  and 
Baligar  in  their  paper  on  the  exponential  scheme  [82] :  All  the  coefficients  are  given  a  * 
symbol  to  avoid  confusion  with  the  discretization  equation  given  previously. 


At . 


1“(1  ~fp)aP~ 


.0  ,  &  o 

§p+—sc  (4.13) 


* 

dP  = 


We  can  rewrite  the  coefficient  from  the  exponential  scheme  as: 
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AxAy 


{dp + dw  +  dN  +  d$  -  Sp ) 


(4.14) 


or 


*  dp _ p_  . 

Cl  p  —  ^ 

AxAy  At 

this  expression  uses  variables  which  are  all  known  quantities  we  already  use  in  the 


(4.15) 
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SIMPLEC  program. 


The  discretization  equation  may  be  rewritten  as: 


“eMe  |  0*(1-&)$ 

+awfw$w  +aw  (1  ~fw)§w 

►  +  < 

+aNfN$N  +aN(l-fN)$°N 

+asfs*s  '  U(i-/sHS 


(4.16) 
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The  weighting  function  used  for  the  exponential  scheme  is: 

f  \  1 
p  l-exp(-X/.)  XP 

where  the  quantity  Xp  is  defined  by: 


.  _  *  A t  (  a.p  \  At  « 

XP=ap—  or  XP  s  — - 1 

P  ^AxAy J  p 


A  power  law  approximation  for  the  weighting  function  is: 


/p=i--Mi-(i-o.aP)5]  ,  o <xP<: 


fp-l-- —  ,  Xp>10 

Kp 


(4.16) 

(4.17) 

(4.18) 

(4.19) 


This  new  definition  for  the  exponential  scheme  weighting  factor /was 
incorporated  into  the  SIMPLEC  program  as  an  option.  The  default  weighting  factor/is 
set  to  1.0  for  the  fully  implicit  method.  For  comparison  purposes,  the  program  was  also 
modified  to  give  one  the  ability  to  select  two  other  weighting  factors,/=  0.5  for  the 
Crank-Nicolson  scheme,  and/=  0.0  for  the  explicit  scheme.  The  ability  to  select  the 
discretization  scheme  one  desires  were  only  added  for  equations  other  than  the 
momentum  equation,  which  has  a  special  solution  technique,  and  which  already 
incorporates  a  form  of  the  exponential  scheme  in  its  solution  process. 


4.4  Comparison  of  the  Modified  SIMPLEC  Code  with  the  Exponential  and 
Crank-Nicolson  Finite  Difference  Schemes  for  the  One-Dimensional 
Diffusion  Equation 

We  may  compare  the  performance  of  the  various  finite-difference  schemes  we 
have  programmed  into  the  SIMPLEC  code  to  each  other  in  terms  of  sensitivity  to  time 
step  and  grid  spacing,  to  see  if  the  exponential  scheme  does  have  any  advantages  over  the 
implicit  and  the  Crank-Nicolson  schemes.  The  various  finite-difference  solutions  may 
also  be  compared  to  the  exact  solution  for  one-dimensional  unsteady  heat  conduction  in  a 
slab  of  thickness  L  and  uniform  thermal  diffusivity  a.  This  is  identical  to  the  problem 
considered  by  Patankar  and  Baliga  in  their  paper  [82]  on  the  development  of  the 
exponential  scheme. 

The  slab  is  initially  at  a  uniform  temperature  T.,  and  at  time  t= 0  the  two  faces  of 
the  slab  at  y=0  and  y=L  are  brought  up  to,  and  held  at,  a  temperature  Tb. 


We  may  define  dimensionless  variables  as: 
T-T: 


0  =  ■ 


Tu-T, 


at 

X  =  ~n 

L2 


The  unsteady  heat  conduction  equation  becomes: 

ae  _  a2e 
ax  dx2  ; 

and  the  boundary  conditions  and  geometry  are  shown  in  Figure  33: 


(4.20) 

(4.21) 

(4.22) 


(4.23) 


=1 


X=0  X=1 


Figure  33.  Nondimensional  unsteady  heat  conduction  boundary  and  initial  conditions. 
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We  may  compare  the  results  from  the  finite-difference  solutions  to  an  analytical 
solution  (for  a  symmetrical  slab  subjected  to  a  sudden  temperature  change  on  both  sides) 
given  by  Schneider  [83]  as: 


4^1  -(n2n2x)  . 

0  =  1 — y,— e  '  'sinwtX  ;  n  =  1,3,5,... 


Knln 


(4.24) 


In  the  paper  by  Patankar  and  Baliga  [82],  results  are  compared  for  a  fully  implicit 
scheme,  a  Crank-Nicolson  scheme,  and  the  exponential  scheme.  The  basis  for 
comparison  is  the  time  step  parameter  defined  as: 


(4.25) 


The  number  of  grid  points  used  was  21,  so  that  there  are  20  equally-spaced 
divisions  of  the  calculation  domain.  This  necessitated  some  minor  changes  to  the  grid 
numbering  scheme  of  the  SIMPLEC  program.  The  SIMPLE,  SIMPLER,  and  SIMPLEC 
programs  are  all  based  on  a  control  volume  approach.  The  calculation  domain  is  divided 
up  by  placing  control  volume  faces  between  main  grid  points.  If  a  uniform  grid  is 
specified,  this  means  that  the  calculation  domain  is  divided  up  into  control  volumes  of 
equal  thickness  (for  one-dimension).  This  means  that  the  actual  grid  spacings  are  not  all 
the  same  because  the  two  grid  points  next  to  the  boundaries  are  displaced  to  maintain 
constant  control  volume  spacings.  For  the  purposes  of  comparison  with  the  results  of 
Patankar  and  Baliga,  the  control  volume  spacings  were  modified  as  shown  in  Figure  34. 

Control 
Grid  Volume 
Point  Face 

\  / 


Figure  34.  Uniform  grid  used  in  SIMPLEC  for  comparison  with  results  of  Patankar  and 
Baliga  [82]. 
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We  may  compare  the  output  from  the  various  finite-difference  schemes  by  using 
the  dimensionless  temperature  gradient  at  the  surface  of  the  slab  after  the  first  time  step, 
which  is  defined  by: 


The  results  for  values  of  the  time  step  parameter  A.  =  16  are  shown  in  Figure  35, 
along  with  the  results  contained  in  Patankar's  and  Baliga's  paper  (results  are  the  same). 


Figure  35.  Predicted  value  of  the  dimensionless  temperature  gradient  at  the  surface  for 
time  step  parameter  X=16. 

4.5  Conclusions 

The  results  obtained  with  the  SIMPLEC  program  are  identical  to  the  results  for 
the  fully  implicit  and  exponential  finite-difference  schemes,  obtained  by  Patankar  and 
Baliga  [82].  This  gives  us  some  confidence  that  the  mechanics  of  the  code  are  working 
correctly,  and  that  there  are  no  gross  errors  in  this  modified  version  of  the  SIMPLEC 
program. 

The  exponential  scheme  should  allow  larger  time  steps,  yet  retain  good  stability 
and  accuracy  compared  to  either  the  implicit  or  the  Crank-Nicolson  schemes.  It  should 
allow  us  to  investigate  diffusion-type  problems,  and  permit  us  to  get  faster  executions 
times,  and  possibly  better  execution  times,  by  eliminating  the  need  to  use  very  small  time 
steps,  or  excessively  slow  relaxation  criteria. 
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CHAPTER  5 


ONE-DIMENSIONAL  MODELING  OF 
COUPLED  DIFFUSION  OF  ENERGY  AND  MASS 


5.1  Introduction 

We  shall  first  examine  the  one-dimensional  case  of  transient  diffusion  in 
hygroscopic  porous  textiles.  Many  workers  in  the  textile  field  have  successfully 
addressed  this  problem  over  the  years  [84-90].  The  one-dimensional  problem  is  a 
convenient  starting  place  to  illustrate  the  numerical  solution  of  partial  differential 
equations  describing  the  coupled  diffusion  processes  for  energy  and  water  vapor 
transport  through  porous  hygroscopic  layers. 

In  Chapter  2,  the  general  governing  equations  were  given  (Equations  2.8.1-24). 
For  one-dimensional  transient  diffusion,  the  major  simplifying  assumptions  are:  1)  there 
is  no  liquid  or  gas  phase  convection,  2)  there  is  no  liquid  phase  present,  3)  the  transport 
is  one-dimensional  (x-direction). 

5.2  One-Dimensional  Governing  Differential  Equations: 


Energy  equation: 


Solid  phase  continuity  equation: 

ea|((pi>°)+R)  =  0  (5.2) 


Gas  phase  diffusion  equation  ( component  1— water  vapor): 


(5.3) 


Volume  fraction  constraint: 

£y  +  £g  1  ,  £{J  =  1  —  £y  —  +  Efe 

£bw  ~  volume  fraction  of  water  dissolved  in  the  solid 

eds  =  volume  fraction  of  the  totally  dry  solid  (constant  for  a  particular  problem) 
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Thermodynamic  relations 


(PiY  ={Py)y  ~{PiY 

{piY 

<A>y=<pi)T^<n 

(Pr)T  =  (P.)MP2)Y 


Transport  Coefficients  and  Mixture  Properties 
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Sorption  Relations 
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(5.9) 

(5.10) 

(5.11) 

(5.12) 


(5.13) 


<ft>°  -  R, 

(0  55<A)r) 

1  1 

W  ' 

ft  J 

fo.25+M] 

.1  A  J 

1 

[1.25-Ml] 

ft  J 

(5.14) 


100 


This  notation  (e.g.  (pi)Y,  (P2)°)  was  convenient  during  the  derivation  of  the 
equations,  but  is  quite  confusing  if  one  is  not  familiar  with  the  numbering  system  used  to 
keep  track  of  the  different  components  in  each  phase.  To  make  the  equations  easier  to 
follow  they  are  rewritten  in  terms  of  a  different  notation,  and  the  volume-average 
symbols  are  dropped.  This  new  notation  is  also  more  consistent  with  a  series  of  papers 
by  Tao,  et  al.  [91-93],  which  addresses  one-dimensional  transient  diffusion  effects  in 
fibrous  materials  in  a  manner  which  also  uses  volume-averaging  concepts.  Included 
below  is  a  new  symbol  definition  list  at  the  beginning  of  the  system  of  equations. 

Symbols  and  Notation: 

Roman  Letters 

(cp)ds  constant  pressure  heat  capacity  of  the  dry  solid  [J/kg-°K] 

(c  )w  constant  pressure  heat  capacity  of  liquid  water  [4182  J/kg-°K  (@290  K)] 

(c  )v  constant  pressure  heat  capacity  of  water  vapor  [1862  J/kg-°K  (@290  K)] 

(cp)a  constant  pressure  heat  capacity  of  dry  air  [1003  J/kg-°K  (@290  K)] 

Cp  mass  fraction  weighted  average  constant  pressure  heat  capacity  [J/kg-°K] 

Da  diffusion  coefficient  of  water  vapor  in  air  [m2/sec] 

Deff  effective  gas  phase  diffusivity  [irf/sec] 

Ahyap  enthalpy  of  vaporization  per  unit  mass  [J/kg] 

thermal  conductivity  of  the  dry  solid  [J/sec-m-°K] 
kw  thermal  conductivity  of  liquid  water  [0.600  J/sec-m-°K  (@290  K)] 
kv  thermal  conductivity  of  saturated  water  vapor  [0.0246  J/sec-m-°K  (@380K)] 
ka  thermal  conductivity  of  dry  air  [0.02563  J/sec-m-°K  (@290  K)] 

=  (rhsv)  mass  rate  of  desorption  from  solid  phase  to  vapor  phase  per  unit  volume 
[kg/sec-m3] 

Py  ={PyY tota*  &as  Pressure  [N/m2] 

Pa  =(. P2  Y  pressure  of  air  [N/m2] 

pv  =(pi)  {  partial  pressure  of  water  vapor  [N/m2] 
ps  saturation  vapor  pressure  (function  of  T  only)  [N/m2] 

T=(T)  temperature  [K] 
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Greek  Letters 


WJV  volume  fraction  of  the  dry  solid  (constant) 

VJV,  volume  fraction  of  the  water  dissolved  in  the  solid  phase 
volume  average  density  [kg/m3] 

density  of  dry  solid  [for  polymers  typically  900  to  1300  kg/m3] 

density  of  liquid  water  [approximately  1000  kg/m3] 

density  of  gas  phase  (mixture  of  air  and  water  vapor)  [kg/m3] 

density  of  water  vapor  in  the  gas  volume  (equivalent  to  mass  concentration) 

[kg/m3] 

density  of  the  inert  air  component  in  the  gas  volume 
(equivalent  to  mass  of  air/total  gas  volume)  [kg/m3] 


Hw 


V  ^ bw  ^ ds  ) 


species  density  of  water  vapor  in  the  solid  phase  volume 
(equivalent  to  mass  concentration)  [kg/m3] 


P  ds 


^ ds 


V  ^bw  ^ds  ) 


species  density  of  the  dry  solid  in  the  solid  phase 
volume  (equivalent  to  mass  concentration)  [kg/m3] 


The  equations  are  rewritten  in  terms  of  these  new  definitions  of  the  variables, 
which  makes  them  less  confusing  to  follow.  The  biggest  change  is  that  we  no  longer  use 
the  solid  phase  volume  fraction  £ct,  but  have  rewritten  everything  for  the  solid  phase  in 
terms  of  the  volume  fraction  of  water  dissolved  in  the  solid.  The  water  dissolved  in  the 
solid  phase  is  sometimes  called  "bound  water",  so  we  call  this  volume  fraction  e^.  This 
bound  water  is  the  only  material  that  crosses  the  solid  phase  interface,  so  it  is  really  the 
only  volume  fraction  we  need  to  keep  track  of.  This  also  means  we  assume  that  the 
volume  of  the  solid  phase  is  made  up  of  the  volume  of  the  dry  solid  plus  the  volume  of 
the  "bound  water"  which  is  dissolved  in  the  solid  phase.  An  illustration  of  the  bound 
water  volume  fraction  is  shown  below  in  Figure  36. 


Original  Dry  Solid 


Bound  Water  Dissolved  in  Solid 


'  bw 


Averaging  volume  V 


Figure  36.  Schematic  for  definition  of  "bound  water"  volume  fraction  e^. 
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With  this  new  less-confusing  nomenclature,  the  equations  can  be  rewritten. 
Governing  Differential  Equations: 

Energy  equation: 


P  Cp  -T-+(Ol  +  ^Kapj^sv  = 


dt 


dx 


V 


dT '> 
dx  > 


(5.15) 


Solid  phase  continuity  equation : 
PH-^(efev)+^=0  or 


(5.16) 


Gas  phase  diffusion  equation: 
-(eYpv)-m„  =  — 

Volume  fraction  constraint: 

^bw  "*■  s  ~  1 

Thermodynamic  relations 

Pa  ~  Py  ~  Pv 

p.=p*TrT 

Ma 

p.=p.frT 

Mw 

Sorption  Relation  [94] 

£<no =  0.578 Rf 


-  1 

(♦) 

Qw  ) 

(0.321  +  <}>)  (1.262 — <|>) 


(5.17) 

(5.18) 


(5.19-5.21) 


(5.22) 


The  8  unknown  variables  are:  T,msv,z^,zbw,pv,pa,pa,pv . 

The  source  term  due  to  vapor  sorption  is  modeled  by  assuming  that  diffusion  into 
the  fiber  is  quasi-steady  state  [90].  The  polymer  at  the  fiber's  surface  is  assumed  to 
immediately  come  into  equilibrium  with  the  relative  humidity  of  the  gas  phase  within 
the  contol  volume  for  that  grid  point.  The  mass  flux  into  or  out  of  the  fiber  is  calculated 
by: 


(5.23) 


R 

i 

R 

D 

d' 


total 

skin 

) 

Solid 


instantaneous  fiber  regain  (kg  of  water  / 100  kg  of  dry  polymer)  [fraction] 
equilibrium  regain  at  relative  humidity  within  the  control  volume  [fraction] 
apparent  solid  phase  diffusion  coefficient  [m2] 
apparent  fiber  diameter  [m] 
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Transport  Coefficients  and  Mixture  Properties 


P  —  ^bwPw  "I"  ^dsPds  £y(Pv  4"  Pa) 

£bwPw(Cp)w  +  £<fcP  dsjfp)^  +  £y[Pv(Cp)v  +  Pa(Cp)a] 


(5.24) 

(5.25) 


For  fabrics  with  significant  porosity,  an  alternate  form  for  the  effective  thermal 
conductivity  is  given  by  [95,96]: 


^ eff  ~  ky 


[l +  if’bw  ■*"  £<fc  )]^d  +  £y^y  . 

£y^cj  +  [l  +  (£few  £4s  )]^y  J 


f  KPV  +  KPa) 

•  JL  = 

^wPw^bv  ^dsPds^ds 

{  Pp  +  Pa  ) 

9 

^  P w^bw  P<&^<£r  J 

T>aZy 

%=-^ 


2)a  (m2  •  s_1  )  =  2. 23  x  10' 


>(JL 


U73. 
( 

Q  (J/kg)  =  1.95xlOs(l-<|)) 


\1.75 

15  J 


1 


,(0.2  +  «)  (1-05  —  4»)  j 
Ahy  (J / kg)  =  2.792 x  106 -  160F- 3.43T2 


ps  (N-m'2)  =  614.3exp|l7.06 


(f  — 273.15) 
(T-40.25) 


(5.26) 

(5.27-5.28) 

(5.29) 

(5.30) 

(5.31) 

(5.32) 

(5.33) 


Initial  and  Boundary  Conditions 


Boundary  Conditions  (L  refers  to  fabric  thickness): 


~*§L 

Am(Pv-—  =— Aff  =  An(p.»  —  P.)„t  —  j  ^ 


(5.34) 

(5.35) 


Initial  Conditions: 
T(x,t —  0) =  Tq 
pv(x,t  =  0)  =  ty0ps(@T0) 

£im'(^'>^  —  0)  — 


104 


Assumed  or  Measured  Parameters 

Fabric  Properties  (from  Appendix  A): 

Thickness  (2  layers) 

Apparent  Bulk  Density  (Dry) 

Regain  at  65%  relative  humidity  Rf 
Volume  fraction  of  dry  solid  ea 
Effective  Diffusivity  Deff 
Fabric  Tortuosity  (x  =  eyDa  /  Deff) 

Dry  solid  density 

Constant  pressure  heat  capacity  of  the  dry  solid  (cp)ds 
Thermal  conductivity  of  the  dry  solid  k^. 

The  external  convective  mass  transfer  coefficient  h  is  available  from 

nt 

measurements  in  the  DMPC.  For  the  particular  flow  rates  and  temperature  used  in  the 
diffusion  experiments  contained  in  Chapter  3,  the  apparent  boundary  layer  resistance 
was  found  in  Chapter  3  to  be  about  95  s/m.  Assuming  that  the  boundary  layers  are 
equal  on  the  two  sides  of  the  sample,  each  side  had  a  resistance  of  47.5  s/m,  which 
results  in  a  mass  transfer  coefficient  h  of  0.021  m/s. 

171 

An  estimate  of  the  external  convective  heat  transfer  coefficient  may  be  found  from 
boundary  layer  similarity  [97]  (assuming  laminar  flow): 


a  =  thermal  diffusivity  of  gas  [m2/s] 

Da  =  diffusion  coefficient  of  water  vapor  in  air  [m2/s] 

pr  =  gas  density 

(c  )a  =  gas  heat  capacity 

This  resulted  in  a  external  convective  heat  transfer  coefficient  of  hc  =21.8  W/ 
(m2*s). 

However,  we  may  also  estimate  convective  heat  transfer  coefficents  using  relations 
developed  for  flow  between  parallel  plates  [98].  Using  these  relations,  we  get  a  heat 
transfer  coefficient  of  around  40  W/(m2-s).  Since  the  thermal  boundary  layer  over  the 
test  sample  is  not  fully  developed,  the  assumptions  about  boundary  layer  similarity  may 
not  be  justified,  and  the  heat  transfer  coefficient  for  flow  between  parallel  plates  was 
used.  Later  in  this  chapter  we  compare  results  obtained  using  these  two  different  heat 
transfer  coefficients,  and  we  also  include  thermal  radiation  effects. 

This  problem  of  uncertainty  about  what  boundary  heat  transfer  coefficients  to  use 
in  our  numerical  solution  will  not  come  up  in  Chapter  6,  since  the  flow  simulation  will 
take  care  of  all  the  momentum,  concentration,  and  temperature  boundary  layers  in  the 
course  of  the  fluid  dynamic  and  heat/mass  transfer  calculations  for  the  flowing  gas 
streams. 
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The  assumed  properties  of  effective  fiber  diameter  deff<  and  effective  solid  phase 
diffusion  coefficient  DmU ,  which  takes  care  of  the  actual  geometry  of  the  fiber, 
including  fiber/yam  shape  and  fiber/yam  size  distribution,  was  chosen  to  fit  the 
experimental  data  contained  in  Chapter  3  for  the  seven  hygroscopic  porous  fabrics  listed 
in  Table  3-2  in  Chapter  3. 

5.3  Comparison  of  Experimental  and  Numerical  Results 

The  one-dimensional  program  written  to  solve  the  diffusion  equation,  mentioned 
in  Chapter  4,  was  used  to  solve  the  system  of  equations.  The  main  program  and  the  user 
routine  are  both  contained  in  Appendix  B.  The  number  of  grid  points  used  was  11,  the 
time  step  was  0.01  seconds,  and  the  exponential  scheme  was  used  for  the  finite- 
difference  equations.  Later  in  this  chapter,  the  effects  of  changing  grid  size,  time  step, 
and  finite-difference  scheme  will  be  shown  for  a  typical  calculation. 

The  situation  modeled  was  the  step  change  in  relative  humidity  from  0.0  to  1.0  at  a 
temperature  of  20°C.  The  experimental  plots  were  shown  as  Figure  15  in  Chapter  3,  and 
the  experimental  schematic  was  shown  previously  as  Figure  13  in  Chapter  3. 

Figures  37  and  38  show  the  comparison  with  the  computed  temperature  history, 
and  the  experimental  temperature  history  as  a  function  of  time,  for  the  seven 
hygroscopic  fabrics.  The  experimental  data  contain  more  data  points  in  the  first  minute 
to  resolve  the  initial  fast  temperature  changes. 


Time  (minutes) 


Figure  37.  Comparison  of  numerical  predictions  to  experimental  results  of  centerline 
temperature  of  Wool,  Cotton,  and  Silk  fabrics  subjected  to  step  change  in  relative 
humidity. 
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Time  (minutes) 


Figure  38.  Comparison  of  numerical  predictions  to  experimental  results  of  centerline 
temperature  of  Wool/Polyester,  Nylon/Cotton,  Nylon  and  Polyester  fabrics  subjected  to 
step  change  in  relative  humidity. 

We  see  fairly  good  agreement  between  measured  and  predicted  temperature 
transients  for  all  the  fabrics.  The  comparisons  shown  are  for  the  center  thermocouple 
only,  and  are  thus  average  values.  There  is  actually  a  significant  temperature  and 
concentration  variation  down  the  length  of  the  sample  in  the  DMPC  apparatus  during  the 
vapor  sorption  process,  which  is  reflected  in  the  different  temperature  records  from  the 
three  thermocouples  in  the  test  sample.  Later  in  Chapter  6,  we  will  show  how  this 
temperature  variation  is  due  to  the  interaction  of  the  developing  concentration  and 
thermal  boundary  layers  as  the  vapor-laden  gas  streams  flow  over  the  test  sample. 
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The  one-dimensional  numerical  model  may  be  used  to  examine  features  of 
hygroscopic  porous  textiles  suoh  a  equilibration  time,  and  weight  change  due  to  vapor 
uptake.  This  is  convenient  when  data  from  apparatus  such  as  a  sorption  balance  are 
available. 

Figure  39  shows  the  performance  of  the  one-dimensional  model  for  the  sorption  of 
water  vapor,  following  a  step  change  from  0.0  to  0.65  relative  humidity,  at  20°C,  under 
the  same  conditions  as  given  before  for  the  DMPC,  for  the  seven  fabrics  in  Table  3-2. 
The  results  plot  the  fractional  approach  to  equilibrium  regain  at  65%  relative  humidity. 


Time  (minutes) 

Figure  39.  Fractional  approach  to  equilibrium  at  65%  relative  humidity,  20°C,  for  seven 
fabrics. 

Figure  39  agrees  with  the  trends  shown  in  Figure  18,  Chapter  3,  which  also  shows 
the  fractional  approach  to  equilibrium  of  the  seven  fabrics,  although  under  conditions  of 
a  humidity  gradient  across  the  sample.  In  both  cases,  the  wool  fabric  is  the  slowest,  the 
group  of  four  fabrics  (cotton,  nylon/cotton,  nylon,  and  wool/polyester)  are  very  similar 
in  their  time  to  equilibrate,  and  the  silk  fabric  is  intermediate  between  this  group  and  the 
polyester  fabric,  which  equilibrates  the  fastest.  Figure  39  also  makes  clear  that  the  wool 
fabric  takes  over  an  hour  to  come  to  sorptive  equilibrium,  and  that  the  experimental  set 
points  used  in  the  DMPC  of  about  30  minutes  in  Chapter  3  were  probably  too  short  for 
the  wool  fabric. 
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5.4  Thermal  Hysteresis  of  Hygroscopic  Fabrics  due  to  Vapor  Sorption 

One  of  the  reasons  that  hygroscopic  fibers  such  as  cotton  and  wool  are  thought  to 
be  more  "comfortable"  is  that  they  have  the  ability  to  buffer  concentration  or 
temperature  changes  occurring  between  the  environment  and  the  human  body.  This 
effect  will  be  investigated  in  more  detail  in  Chapter  7,  but  we  can  use  the  one¬ 
dimensional  model  to  observe  the  effects  of  a  sudden  change  in  temperature  on  one  side 
of  a  fabric  barrier. 

A  practical  example  that  is  often  cited  in  the  literature  is  that  of  a  material  such  as 
a  wool  fabric  which  is  used  for  cool  weather  clothing.  If  a  person  wearing  a  wool  coat 
inside  a  building,  where  it  is  warm  and  diy,  then  goes  outside  to  a  colder  environment, 
which  may  have  a  higher  humidity,  the  wool  coat  will  buffer  the  temperature  change  due 
to  the  tendency  of  the  wool  fibers  to  absorb  water  vapor  from  the  air  and  release  the  heat 
of  sorption.  These  types  of  effects  may  also  be  important  in  applications  such  as 
building  insulation,  where  even  though  fiberglass  itself  is  not  terribly  hygroscopic,  the 
resinous  binders  used  to  stabilize  the  batts  have  an  affinity  for  water,  and  may  cause 
significant  temperature  transients  due  to  absorption  processes  [93]. 

We  can  use  our  one-dimensional  numerical  model  to  examine  this  thermal 
hysterisis  effect  for  a  typical  hygroscopic  textile.  The  fabric  properties  are  those  of  two 
layers  of  the  wool  fabric  given  in  Table  A-l,  Appendix  A.  The  fabric  is  first 
equilibrated  at  30°C  and  40%  relative  humidity.  The  ambient  temperature  and  ambient 
relative  humidity  on  one  side  of  the  fabric  are  then  suddenly  changed  to  5°C  and  90%. 
The  external  heat  and  mass  transfer  coefficients  on  both  sides  of  the  fabric  are  kept  the 
same  as  were  used  in  the  previous  simulations. 


Sample  Equililbrated  at 
30°C,  40%  Relative  Humidity 


Conditions  at  Left  Boundary 
Changed  to  5°C,  90% 


hc,  hm 


T„=  30°C 
♦--0.40 


hc»  hm 

hc»  hm 

t:=30*c 

T>  30°C 

5°C 

Tf=30«C 

♦i  -  0.40 

♦-=0.40 

♦„  =  0.90 

♦,*0.40 

hCi  hm 


T>  30°C 
♦-=0.40 


X=0  X=1 


X=0  X=1 


Figure  40.  Numerical  experiment  to  simulate  sudden  temperature  and  relative  humidity 
change  on  one  side  of  a  fabric. 


109 


We  examine  the  performance  of  the  one-dimensional  model  for  two  cases.  In 
Case  I,  we  turn  off  the  hygroscopic  character  of  the  fibers  by  setting  the  fabric  regain  to 
zero.  In  Case  n,  we  turn  the  normal  hygroscopic  character  of  the  wool  fibers  back  on  by 
using  the  proper  value  for  the  regain  of  wool.  All  the  other  properties  of  the  fabric 
remain  the  same,  and  we  can  observe  the  consequences  of  vapor  sorption  as  unaffected 
by  any  other  physical  properties  (although  we  should  mention  that  the  thermal 
conductivity  and  heat  capacity  of  the  hygroscopic  fabric  change  slightly  over  time  as  the 
fabric's  proportion  of  bound  water  increases). 


Figure  41.  Change  in  centerline  temperature  of  a  hygroscopic  and  a  nonhygroscopic 
fabric  as  the  ambient  conditions  are  changed  on  one  side. 

We  see  the  expected  behavior  of  a  hygroscopic  fabric  as  compared  to  the 
nonhygroscopic  fabric.  For  Case  I,  the  nonhygroscopic  fabric,  the  material  equilibrates 
very  quickly,  and  the  temperature  of  the  center  of  the  fabric  quickly  assumes  the  mean 
temperature  of  the  two  sides  (17.5°C)  valid  for  steady-state  conduction,  with  constant 
heat  capacity  and  thermal  conductivity.  For  Case  II,  the  hygroscopic  fabric,  significant 
vapor  sorption  takes  place  which  serves  an  energy  source  within  the  fabric.  The 
equilibration  time  thus  takes  much  longer:  30  minutes  for  the  case  of  the  hygroscopic 
fabric  versus  2  minutes  for  the  nonhygroscopic  fabric. 
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We  may  also  show  the  calculated  temperature  profiles  within  the  fabric  at  different 
times  after  the  ambient  temperature  and  humidity  are  changed  on  one  side  of  the  fabric. 
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Figure  42.  Calculated  temperature  profiles  through  the  nonhygroscopic  and  the 
hygroscopic  fabric  at  various  times  after  ambient  conditions  on  one  side  are  changed. 
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We  may  also  use  the  numerical  code  to  examine  the  gas  phase  water  vapor 
concentration  profile  within  the  fabric.  Figure  43  shows  the  calculated  water  vapor 
concentration  through  the  fabric  thickness,  for  the  hygroscopic  and  nonhygroscopic 
fabrics  as  a  function  of  time.  Vapor  concentration  is  chosen  rather  than  relative 
humidity,  since  the  saturation  vapor  pressure  is  a  function  of  temperature,  and  relative 
humidity  can  be  confusing  when  temperature  gradients  are  involved. 
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Figure  43.  Calculated  water  vapor  concentration  profiles  through  the  nonhygroscopic 
and  the  hygroscopic  fabric  at  various  times  after  conditions  on  one  side  are  changed. 

Figure  43  shows  that  the  nonhygrosopic  fabric  equilibrates  within  a  matter  of 
seconds,  but  that  the  hygroscopic  wool  fabric  takes  much  longer  due  both  to  the  sorption 
kinetics  of  the  fibers  as  they  come  to  equilibrium  with  the  local  water  vapor 
concentration  in  the  fabric  pores,  but  also  because  of  value  of  the  local  temperature, 
which  affects  the  gas  phase  partial  vapor  pressures. 

There  are  a  great  many  more  situations  which  could  be  examined  with  this  model, 
e.g.  transient  behavior  under  changes  in  boundary  temperatures  or  changes  in  external 
heat  and  mass  transfer  coefficients.  Most  of  these  situations  are  deferred  to  Chapter  6, 
where  a  more  complete  treatment  of  the  problem  is  presented  which  includes  a  two- 
dimensional  geometry,  the  inclusion  of  convection  through  the  porous  material,  and  the 
numerical  simulation  of  the  fluid  dynamic  behavior  and  heat/mass  transfer  properties  of 
the  gas  phase. 
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5.5  Effect  of  Grid  Size  and  Time  Step  on  Numerical  Results 

The  grid  size  and  time  step  were  varied  systematically  to  observe  the  effect  on  the 
results  obtained  with  the  one-dimensional  numerical  code.  This  was  done  previously  in 
Chapter  4  for  the  nondimensional  diffusion  equation,  with  no  source  terms.  The 
inclusion  of  a  nonlinear  source  term,  along  with  the  time-  and  spatially-dependent 
transport  properties,  complicate  matters  significantly.  For  example,  the  Crank-Nicolson 
scheme  did  not  work  well  when  large  source  terms  are  included  in  the  finite-difference 
equations.  Although  the  Crank-Nicolson  scheme  performs  well  for  the  diffusion 
equation  with  no  source  terms,  it  had  a  lot  of  stability  and  convergence  problems  when  it 
was  used  for  the  hygroscopic  sorption  case,  so  it  is  not  mentioned  further.  The  two 
remaining  schemes,  the  exponential  and  the  fully  implicit,  both  performed  identically 
over  the  range  of  grid  sizes  and  time  steps  explored.  Here  again,  when  the  source  term 
is  the  dominant  factor,  the  differences  between  the  various  finite-difference  schemes 
disappears,  especially  when  a  relaxation  method  is  used  within  a  time  step. 

The  case  of  the  cotton  fabric,  subjected  to  a  step  change  of  0.00  to  0.65  relative 
humidity,  at  20°C,  was  used  to  examine  the  effect  of  both  grid  size  and  time  step  and  the 
numerical  results  of  the  one-dimensional  code.  Since  there  was  little  difference  between 
the  exponential  and  the  fully  implicit  schemes,  the  exponential  scheme  is  used  to  explore 
the  effects  of  time  step  and  grid  size. 

Figure  44  shows  that  the  number  of  grid  points  has  a  small  effect  on  the  accuracy 
of  the  results. 
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Figure  44.  Effect  of  number  of  grid  points  on  temperature  transients  during  water  vapor 
sorption  of  a  hygroscopic  fabric. 


113 


Using  the  predicted  centerline  temperature  as  a  guide,  Figure  44  shows  that  once 
the  number  of  grid  points  exceeds  five,  the  results  are  essentially  the  same.  Even  for 
three  grid  points,  the  results  are  about  as  accurate  in  terms  of  the  fit  to  the  experimental 
data,  as  the  larger  number  of  grid  points.  This  is  important  for  the  modeling  conducted 
in  Chapter  7,  where  the  numerical  model  for  the  transient  diffusion  behavior  of 
hygroscopic  clothing  is  combined  with  a  numerical  model  of  the  human 
thermoregulatory  system.  The  ability  to  use  a  small  number  of  grid  spacings  makes  the 
integrated  model  run  much  more  quickly. 

The  effect  of  the  time  step  used  is  shown  in  Figure  45. 
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Figure  45.  Effect  of  time  step  on  calculation  of  temperature  transients  during  water 
vapor  sorption  for  a  hygroscopic  fabric. 
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5.6  Effect  of  Different  Boundary  Heat  Transfer  Coefficients  on  Numerical  Results 

In  Section  5.2,  we  noted  that  we  had  to  assume  a  heat  transfer  coefficient,  and  one 
could  choose  values  that  ranged  from  about  20  to  40  W/(m2-s).  We  may  use  the  one¬ 
dimensional  numerical  code  to  examine  the  consequences  of  using  various  assumptions 
about  the  boundary  heat  transfer  coefficients.  In  addition  to  varying  the  convective  heat 
transfer  coefficient,  we  may  also  include  an  effective  radiative  heat  transfer  coefficient, 
and  examine  the  importance  of  thermal  radiation  heat  losses  on  the  calculated 
temperature  transients. 

The  simplest  thermal  radiation  thermal  radiation  heat  transfer  coefficient  may  be 
defined  as  that  between  two  parallel  plates  at  different  temperatures  [99],  An  effective 
heat  transfer  coefficient  is  defined  as  the  sum  of  the  convective  heat  transfer  coefficient 
(hj  and  a  thermal  radiative  heat  transfer  coefficient  (h}: 

Kff  =  {K  +  K)  (5.37) 

We  will  assume  that  the  emissivity  of  the  fabric  and  the  plastic  duct  are  both  equal 
to  0.9,  which  allows  the  thermal  radiative  heat  transfer  coefficient  to  be  written  as: 

*,  =  ea(r/+r.)(2}J-ri)  (5.38) 

6  emissivity  (assumed  to  be  0.9) 
a  Stefan  Boltzmann  constant  [5.669  x  10'*  W/(rtf-K4)] 

Tf  fabric  temperature  (K) 

Tw  duct  wall  temperature  (K) 

Figure  46  shows  the  effects  of  three  different  boundary  heat  transfer  coefficients 
on  the  calculated  temperature  transients  for  the  cotton  fabric,  with  the  sorption  rate 
factor  adjusted  to  give  equal  peak  temperatures,  as  listed  in  Appendix  B.  There  are  some 
differences  between  the  different  assumptions,  but  referring  back  to  the  experimental 
data  scatter  contained  in  Figure  17  in  Chapter  3,  the  differences  are  fairly  minor. 
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Figure  46.  Effect  of  different  boundary  heat  transfer  coefficients  on  calculation  of 
temperature  transients  during  water  vapor  sorption  for  a  cotton  fabric. 

Figure  47  shows  how  the  different  heat  transfer  coefficient  assumptions  affect  the 
rate  at  which  the  cotton  fabric  approaches  sorptive  equilibrium.  In  this  case,  the 
differences  are  due  more  to  the  different  sorption  rate  factors,  rather  than  a  direct 
influence  of  the  boundary  heat  transfer  coefficient. 
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Figure  47.  Effect  of  different  boundary  heat  transfer  coefficients  on  water  vapor 
sorption  for  a  cotton  fabric. 
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5.7  Conclusions 


The  one-dimensional  model  of  coupled  diffusion  of  mass  and  energy  in 
hygroscopic  porous  materials  performs  well  in  predicting  and  simulating  temperature 
changes  as  a  function  of  time,  and  weight  changes  as  a  function  of  time  —  two  quantities 
which  are  easily  measured  experimentally.  The  one-dimensional  model  neglects  factors 
such  as  the  convective  transfer  of  energy  and  mass  through  the  porous  structure  of 
textiles,  which  is  often  of  more  practical  significance  than  the  diffusion  properties  of 
clothing  systems.  The  one-dimensional  model  also  neglects  radiative  transfer,  although 
this  can  be  incorporated  in  a  fairly  simple  fashion  by  an  effective  thermal  conductivity 
which  accounts  for  radiative  transfer.  The  next  chapter  will  present  a  more  sophisticated 
model  which  includes  both  diffusive  and  convective  transport  through  porous  materials. 
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CHAPTER  6 


TWO-DIMENSIONAL  MODELING  OF  DIFFUSION 
AND  DIFFUSION/CONVECTION  PROCESSES  IN  TEXTILES 


6.1  Introduction 


The  previous  chapter  addressed  one-dimensional  transient  coupled  diffusion.  The 
effects  of  convective  gas  flow  were  not  included.  Convective  heat  and  mass  transfer  in 
porous  media  is  often  more  important  than  transport  due  to  diffusion,  especially  if  such 
materials  are  used  in  conditions  where  a  large  pressure  gradient  is  present.  Laboratory 
test  methods  for  textiles  usually  concentrate  on  one  transport  mechanism,  to  the 
exclusion  of  the  others.  Diffusion  test  methods  are  particularly  easy  to  perform,  and 
often  become  the  primary  ranking  and  evaluation  method  for  determining  the  tranport 
properties  of  textiles.  Such  test  methods  can  be  very  misleading  for  textiles,  particularly 
those  which  have  high  air  permeability,  since  a  very  small  pressure  gradient  can  produce 
large  convective  flows  through  the  porous  structure,  which  overwhelms  any  diffusive 
transport  which  takes  place. 

In  this  chapter,  we  present  the  governing  equations  for  the  two-dimensional  coupled 
diffusion/convection  of  energy  and  mass  through  hygroscopic  porous  materials.  We 
solve  the  system  of  equations  in  a  computational  domain  which  simulates  the  geometry 
of  the  dynamic  moisture  permeation  cell  (DMPC),  which  was  described  in  Chapter  3. 
We  then  compare  the  numerical  results  to  experimental  results  for  the  situations  of 
transient  coupled  diffusion  (similar  to  Chapter  5),  and  for  the  case  of  convection/ 
diffusion,  where  both  pressure  gradients  and  concentration  gradients  are  present  within 
the  DMPC. 


6.2  Two-Dimensional  Governing  Differential  Equations 


The  set  of  modified  equations  which  describe  the  coupled  convective/diffusive 
transfer  of  heat  and  mass  through  hygroscopic  porous  materials  are  summarized  below. 
The  equations  derive  from  the  general  governing  equations  given  previously  (Equations 
2.8.1-24  in  Chapter  2).  In  these  equations,  the  major  simplifying  assumption  is  that  ther 
is  no  liquid  phase  present.  Since  these  equations  are  to  be  solved  using  the  SIMPLEC 
code,  they  are  algebraically  manipulated  until  they  are  each  in  the  general  form: 
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p^+pu^+pv^ 
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V  *  9jc  J  dy 
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(6.1) 


Gas  phase  continuity  equation 

V-((P,)r(^))=K>-|(er(pr>’) 


(6.2) 
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Gas  phase  diffusion  equations 


water  vapor: 


|-(eY<Pv)Y)  +  V*((Pv)X^>)-K>  =  V*j(pY>Y%V 
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(6.4) 


It  is  easier  to  get  the  diffusion  equation  into  the  general  form  in  terms  of  mass 
fraction  pv/pY  (which  is  also  more  exact): 
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Total  thermal  energy  equation 

<pKc,>^+[(cJ,{pT>r<p»)]-v(r>+(Q+M,)R)=v-(^v<r))  (6.8) 
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Gas  phase  equation  of  motion  for  the  porous  media : 
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which  results  in  a  general  momentum  equation  : 


(6.11) 


(6.12) 


(6.13) 


x-momentum  equation: 


(6-14) 

y-momentum  equation: 


(6.15) 


Note  that  the  momentum  equations  given  above  are  really  only  valid  for  the  bulk 
fluid.  They  are  not  of  a  proper  form  to  give  the  time-dependent  flow  in  the  porous 
medium,  they  will  not  give  the  channeling  effect  at  the  walls  which  we  know  to  be 
present  in  porous  media,  and  they  do  not  give  a  pore  velocity  or  pore  pressure.  But  they 
do  assure  continuity  of  flow  across  the  porous  media  by  using  only  the  apparent  filter 
velocity,  and  they  assure  continuity  of  pressure  across  the  porous  media.  More  correct 
relations  for  the  momentum  equation  in  porous  media  may  be  found  in  References  [100- 
102]. 

Solid  phase  continuity  equation: 

p^(eJ+(<)  =  °  or  |-(eJ+^  =  0  (6.16) 

Volume  fraction  constraint: 

&bw  ^ ds  —  1 
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(6.17) 


Thermodynamic  relations 
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Transport  Coefficients  and  Mixture  Properties 

The  volume-averaged  notation  is  again  dropped,  with  the  understanding  that  the 
variables  have  already  been  expressed  as  phase  averages  or  intrinsic  phase  averages  (as 
defined  in  the  Nomenclature  section). 

As  we  did  in  Chapter  5,  the  source  term  due  to  vapor  sorption  is  modeled  by 
assuming  that  diffusion  into  the  fiber  is  quasi-steady  state.  We  assume  that  the  polymer 
at  the  fiber's  surface  immediately  comes  into  equilibrium  with  the  relative  humidity  of 
the  gas  phase  within  the  contol  volume  for  that  grid  point.  We  then  calculate  the  mass 
flux  into  or  out  of  the  fiber  by: 

_  ^solidP solid  ( D  D  \ 

msv  -  J2  [Kf  - Ksldn )  (6.21 

Dsoiid  =  effective  solid  phase  diffusion  coefficient  (m2  /  s) 
p sou  ~  <ky  solid  phase  density  (kg  /  m3) 
d2  =  effective  fiber  diameter  (m) 

Rskin  =  equilibrium  regain  at  fiber  surface 
Rf  =  fiber  regain  from  last  time  step 
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Initial  Constants  and  Values  Required: 
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Qt  (J / kg)  =  1.95x10s  1-^ 
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Each  main  equation  has  been  expressed  in  the  general  form: 

9<|>  3<t>  9<J>  9  (~  9<|A  9  9<b^ 


(6.34) 


M+V(p^)=v-(rtv*)+i» 


(6.35) 


In  tabular  form,  the  coefficients  for  the  general  form  of  the  momentum,  mass,  and 
energy  tranport  equations  are: 

Table  6-1.  Coefficients  for  General  Transport  Equations 


y-momentum 


Energy 


Diffusion 


Equation  I  § 


x-momentum  I  u  p  I  |Xy 


Py  % 


Py(CA  k‘ff 


py  PyDq 


~ i  -M  — 

9x 


%l-»  [Hi 

»vJ  U 


[(c.)rPr-pcJf--(a+M,H 

1"fefeiw+^1”£,^.p'(f 


125 


(6.36) 


For  the  special  case  of  the  gas  phase  continuity  equation,  we  have: 

3  3 

v-(pIv1)  =  m„--(e,pI)  ;  St  =  m„--(t,  p,) 

6.2  Two-Dimensional  Modeling  of  Convection/Diffusion 

The  SIMPLEC  code  and  the  USER  subroutine  DIFFCON.F  (contained  in  Appendix 
C)  were  used  to  solve  the  system  of  equations  6.2-6.33.  The  geometry  is  modeled  as 
shown  below  in  Figure  48. 


Entering  gas  flows; 
-Mass  flow  rate  /  velocity 
-Temperature 
-Vapor  Pressure 
-Vapor  Concentration 


Sample  holder 
and  clamping  plates 
(properties  of  stainless  steel) 
Sample  Region  /} 


Exiting  gas  flows; 
restrictions  applied  to 
one  or  both  of  the  exits 
to  control  pressure 
drop  across  the  sample 


Figure  48.  Model  geometry  to  simulate  convection/diffusion  processes  in  the  DMPC. 

The  subroutine  DIFFCON.F,  in  Appendix  C,  has  the  appropriate  grid  generation 
routines,  boundary  condition  specifiers,  etc.,  to  define  all  the  properties  of  each  control 
volume  as  to  the  appropriate  diffusion  coefficients,  permeabilities,  and  boundary 
conditions  (inflow/outflow,  adiabatic,  impermeable,  etc.).  For  the  inlet  conditions,  the 
properties  of  the  entering  gas  flows,  such  as  mass  flow  rate,  temperature,  vapor 
concentration,  etc.,  are  specified.  The  SIMPLEC  code  then  solves  for  the  momentum, 
concentration,  and  temperature  equations  for  the  entire  computational  domain.  Facilities 
exist  within  the  SIMPLEC  code  to  solve  problems  in  both  a  steady-state  and  a  transient 
mode.  Examples  of  both  modes  for  both  transient  and  steady-state  diffusion/convection 
will  be  presented  in  this  chapter. 

The  easiest  situation  to  compare  numerical  and  experimental  results  with  is  steady- 
state  diffusion/convection  in  the  DMPC.  The  experimental  situation  was  shown 
previously  in  Figure  19  of  Chapter  3.  Equal  mass  flow  rates  of  nitrogen  enter  two  sides 
of  the  DMPC,  with  one  flow  entering  at  a  relative  humidity  of  0.0  and  the  other  flow 
entering  at  a  relative  humidity  of  1.0.  The  restrictor  valves  at  the  exits  of  the  cell  are 
used  to  systematically  vary  the  pressure  drop  across  the  sample  to  produce  varying 
amounts  of  convective  flows  across  the  sample.  For  the  fabrics  which  have  a  humidity- 
dependent  porosity/Darcy  permeability,  the  relationship  between  the  measured  relative 
humidity  and  the  pressure  drop  is  a  good  test  of  the  ability  of  the  numerical  code  to 
simulate  the  experimental  results. 
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The  seven  fabrics  listed  in  Table  3-2,  Chapter  3,  were  tested  in  the  DMPC  under 
convection/diffusion  conditions.  The  SIMPLEC  and  DIFFCON  code  given  in  Appendix 
C  were  used  to  simulate  this  experiment,  using  the  fabric  properties  given  in  Appendix 
A. 

The  factor  most  affecting  the  results  is  the  humidity-dependent  Darcy  flow  resistance 
property,  defined  in  equations  6.29-30.  Figure  49  shows  the  comparison  of  the 
numerical  flow  simulation  with  the  experimental  results  for  the  cotton  fabric.  Also 
included  on  this  plot  are  numerical  results  where  the  Darcy  flow  resistance  was  not 
allowed  to  vary,  but  was  specified  as  either#^  (the  value  obtained  using  dry  nitrogen) 
or  (the  value  obtained  using  a  relative  humidity  of  1.0).  The  use  of  these  constant 
values  for  the  Darcy  flow  resistance  allow  one  to  bracket  the  results  between  the  two 
extremes  of  measured  permeability. 


Pressure  Drop  Across  Fabric  (Pa) 


Figure  49.  Comparison  of  experimental  versus  numerical  results  for  simulation  of 
convection/diffusion  in  the  DMPC  for  the  cotton  fabric. 
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Figure  49  shows  that  the  approximation  for  the  humidity-dependent  permeability 
works  well  for  the  situation  where  the  high  humidity  flow  is  being  forced  through  the 
fabric  (positive  pressure  drop),  but  does  not  match  the  experimental  data  as  closely  for 
the  situation  where  the  low  humidity  flow  is  being  forced  through  the  fabric  (negative 
pressure  drop).  Judging  by  the  fact  that  the  experimental  data  is  just  about  in  the  middle 
of  the  two  bracketing  curves  which  used  the  value  for  or  Rsal,  an  approximation  for 
the  relative  humidity-dependent  Darcy  permeability  of  just  taking  the  mean  or  average 
relative  humidity  on  the  two  sides  of  the  fabric  may  work  just  as  well  as  the  more 
complicated  sorption  scaling  approach  given  by  equations  6.29-30. 

The  numerical  results  for  the  wool  fabric,  another  highly  hygroscopic  material,  are 
shown  in  Figure  50.  What  we  notice  from  this  plot  is  that  the  data  seem  to  represented 
more  by  the  results  from  using  the  Darcy  flow  resistance  measured  at  saturation 
conditions,  than  by  the  sorption  scaling  approach.  Another  possible  error,  due  to  the 
experimental  method,  is  the  use  of  equilibration  times  which  were  too  short  for  wool 
(which  really  should  have  an  hour  minimum  at  each  set  point). 


Figure  50.  Comparison  of  experimental  versus  numerical  results  for  simulation  of 
convection/diffusion  in  the  DMPC  for  the  wool  fabric. 
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We  can  show  comparable  results  for  the  other  five  of  our  test  fabrics,  shown  in  Figures 
51  and  52. 


Pressure  Drop  Across  Fabric  (Pa) 


Figure  51.  Comparison  of  experimental  versus  numerical  results  for  simulation  of 
convection/diffusion  in  the  DMPC  for  the  silk  and  polyester  fabrics. 


Pressure  Drop  Across  Fabric  (Pa) 


Figure  52.  Comparison  of  experimental  versus  numerical  results  for  simulation  of 
convection/diffusion  in  the  DMPC  for  the  wool/polyester,  nylon/cotton,  and  nylon 
fabrics. 


129 


We  see  good  agreement  of  the  experimental  with  the  numerical  results,  especially  for 
the  tests  which  have  a  positive  pressure  drop  driving  convective  flow  from  the  high 
humidity  to  the  low  humidity  side  of  the  DMPC.  The  agreement  is  not  as  good  for  the 
test  conditions  which  have  a  negative  pressure  drop,  which  drives  the  dry  gas  against  the 
diffusion  gradient  present  in  the  DMPC.  We  can  think  of  several  possible  explanations 
for  this  disagreement.  Sorption  hysteresis  may  be  responsibe  for  some  of  the 
differences.  The  air  permeability  tests  were  conducted  starting  at  the  dry  condition  and 
working  up  to  the  saturated  condition.  The  convection/diffusion  experiments  in  the 
DMPC  were  conducted  in  the  opposite  order,  starting  at  the  high  humidity  flowing 
through  the  sample  with  a  positive  pressure  gradient,  and  working  down  to  the  negative 
pressure  gradient.  Since  we  did  not  include  a  factor  to  account  for  sorption  hysteresis  in 
our  numerical  approximation  of  the  sorption  isotherm,  this  could  be  a  cause  of  the  error 
(in  addition  to  the  possible  errors  due  to  the  sorption  scaling  approach  used  for  the  Darcy 
resistance  as  a  function  of  bound  water  volume  fraction).  Another  possible  source  of 
error  is  the  equilibration  time  allowed  at  each  setpoint.  For  wool  in  particular,  one 
should  allow  equilibration  times  of  at  least  an  hour,  but  shorter  times  were  used  for 
many  of  the  experimental  setpoints  for  the  wool  fabric  (with  the  intention  of  maximizing 
the  number  of  tests  per  day) 
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We  have  seen  generally  good  agreement  between  experimental  and  numerical  results 
which  simulate  fluid  dynamic/structural  interactions  in  hygroscopic  porous  textiles  under 
steady-state  conditions.  Since  the  two  dimensional  code  solves  for  the  variables  of 
temperature,  pressure,  velocity,  concentration,  rate  of  phase  change,  etc.,  we  have  the 
ability  to  look  at  the  entire  flow  field  in  the  DMPC  by  plotting  variables  such  as  velocity 
and  relative  humidities. 

In  Figure  53,  we  show  the  entire  flow  field  in  the  DMPC  simulation,  for  the  variables 
of  velocity  (indicated  by  vectors)  and  relative  humidity  (indicated  by  the  shaded 
contours).  The  two  situations  shown  are  for  the  cotton  fabric,  under  conditions  of  no 
pressure  drop  across  the  sample  (pure  diffusion),  and  under  the  situation  of  a  positive 
pressure  drop  across  the  sample,  which  forces  the  humidified  gas  to  flow  across  the 
sample  to  the  low  humidity  side  of  the  cell. 


(a)  Ap=0.0  Pa  (b)  Ap=400  Pa 

Figure  53.  Flow  field  simulation  obtained  using  numerical  solution  for  cotton  fabric  in 
DMPC  at  two  different  pressure  drop  conditions.  Gas  phase  velocity  vectors,  and 
contours  of  relative  humidity  shown  on  plot 

Figure  53  makes  it  easier  to  see  some  of  the  phenomena  we've  been  describing; 
namely,  that  the  flow  in  a  test  such  as  this  is  two-dimensional  in  nature,  and  that  the 
formation  of  boundary  layers  results  in  gradients  down  the  length  of  the  sample.  This 
will  be  illustrated  further  in  the  next  section  of  this  chapter  which  deals  with  transient 
diffusion. 
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6.3  Two-Dimensional  Modeling  of  Transient  Diffusion/Sorption 

The  two-dimensional  system  of  governing  equations  may  also  be  solved  to  simulate 
the  case  of  transient  diffusion/sorption,  as  was  done  previously  for  the  one-dimensional 
situation  in  Chapter  5.  We  will  present  only  the  results  for  the  cotton  fabric; 
qualitatively,  there  was  nothing  much  different  seen  in  the  two-dimensional  results  than 
for  the  one-dimensional  results.  The  experimental  results  for  the  transient  diffusion/ 
sorption  case  were  obtained  using  two  layers  of  fabric  instrumented  with  three 
thermocouples  (see  Figure  13  in  Chapter  3).  The  sample  equilibrated  at  a  relative 
humidity  of  0.0  on  both  sides  under  constant  nitrogen  flow  at  20°C  (293  K).  The 
relative  humidity  was  then  changed  to  1.0  on  both  sides,  and  the  temperature  rise  and 
fall  due  to  vapor  sorption  was  recorded  as  a  benchmark  for  the  computer  simulations.  A 
modified  version  of  the  numerical  codes  given  in  Appendix  C  were  used  to  simulate  this 
situation  in  the  DMPC.  Figure  54  below  shows  the  computed  and  the  experimentally- 
measured  temperatures  of  the  fabric  as  a  function  of  time  for  the  simulation.  The 
numerical  results  match  the  trend  of  the  experimental  results,  particularly  the  fact  that 
there  is  a  difference  between  the  upstream,  center,  and  downstream  thermocouples,  due 
to  the  formation  of  concentration  and  temperature  boundary  layers  down  the  length  of 
the  sample.  Figure  54  also  shows  what  we  have  seen  before  in  Chapter  5;  the  numerical 
results  do  not  fall  as  quickly  as  the  experimental  results.  We  believe  this  failure  to 
match  the  rate  of  temperature  drop  more  precisely  is  due  to  1)  the  two-dimensional 
model  doesn't  include  radiation  heat  transfer,  and  2)  the  very  simple  model  of  the 
sorption  kinetics  given  by  equation  6.21  doesn't  do  a  very  good  job  of  mimicking  the 
true  sorption  behavior  of  cotton  or  wool  fibers. 


(a)  Numerical  (b)  Experimental 

Figure  54.  (a)  Numerical  and  (b)  experimentally  measured  temperature  transients  for  a 
hygroscopic  cotton  fabric  subjected  to  a  sudden  change  in  relative  humidity. 
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Using  the  two-dimensional  information  from  the  flow  simulation,  we  can  also  plot 
the  entire  computational  domain  as  a  "snapshot"  in  time.  Figure  55  shows  the 
computed  velocity  field  and  the  temperatures  at  different  times  after  the  relative 
humidity  of  the  gas  flow  is  changed  to  1.0.  We  can  clearly  see  the  fabric  heating  up  as  it 
absorbs  water  vapor,  and  then  cooling  back  down  as  it  comes  back  to  thermal 
equilibrium.  Figure  55  illustrates  the  interaction  between  the  concentration  and  thermal 
boundary  layers  in  the  DMPC,  and  how  the  flow  field  of  the  gas  influences  the 
experimental  results  we  obtain  in  such  an  apparatus. 


Figure  55.  Numerical  simulation  of  flow  field  and  temperature  for  cotton  fabric 
undergoing  water  vapor  soiption  under  relative  humidity  step  change  from  0.0  to  1.0  at 
20°C  (293K). 
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6.4  Conclusions 


The  ability  to  conduct  the  two-dimensional  numerical  modeling  and  the  experimental 
testing  together  is  especially  valuable  in  addressing  many  of  the  questions  we  have  about 
the  range  of  applicability  of  the  volume-averaging  method  for  textiles,  and  the  effect  of 
the  test  equipment  itself  on  the  results.  For  example,  we  have  ignored  for  the  most  part 
the  possible  existence  of  microscale  pore-level  heat  and  mass  transfer  coefficents.  Our 
assumption  of  local  thermal  equlibrium  assumes  that  the  fiber  and  the  gas  are  at  the  same 
temperature,  which  eliminates  the  heat  transfer  coefficient  (although  such  coefficents 
may  exist  in  reality),  but  our  treatment  of  mass  transfer  between  fiber  and  gas  implicitly 
recognizes  the  existence  of  a  pore-level  mass  transfer  coefficient,  which  we  have  not 
considered  in  the  interest  of  maintaining  simplicity.  The  effective  solid  phase  diffusivity 
lumps  microscale  transfer  coefficients,  fiber  geometry,  surface  area,  and  solid  phase 
diffusion  coefficients  into  one  parameter.  The  ability  to  conduct  testing  under 
conditions  of  different  pore  flow  velocities,  and  the  observation  of  the  equilibration 
times  for  a  quantity  such  as  pressure  drop,  is  one  way  of  directly  observing  the  relative 
importance  of  factors  such  as  a  microscale  mass  transfer  coefficient  between  the  gas 
phase  volume  and  the  solid  phase  volume  within  the  porous  material. 

The  ability  to  apply  the  proper  form  of  the  two-dimensional  transport  equations  to  a 
particular  test  device  eliminates  much  of  the  need  to  guess  or  estimate  boundary  heat  and 
mass  transfer  coefficients,  since  they  are  taken  care  of  automatically  in  the  course  of  the 
computational  fluid  dynamic  and  heat  transfer  calculations  involved  in  solving  for  the 
gas  flow  field.  This  allows  one  to  get  a  clearer  picture  of  the  behavior  of  the  porous 
material  itself,  without  the  complications  of  the  behavior  of  the  particular  experimental 
apparatus  intruding  themselves  into  the  results. 
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CHAPTER  7 


INTEGRATION  OF  A  HUMAN  THERMAL  PHYSIOLOGY  CONTROL  MODEL 

WITH  A  NUMERICAL  MODEL  FOR  COUPLED  HEAT  AND  MASS 
TRANSFER  THROUGH  HYGROSCOPIC  POROUS  TEXTILES 

7.1  Introduction 

The  comprehensive  numerical  model  developed  for  the  coupled  transport  of 
energy  and  mass  through  porous  hygroscopic  materials  was  integrated  with  an  existing 
human  thermal  physiology  model  to  provide  appropriate  boundary  conditions  for  the 
clothing  model.  The  human  thermal  control  model  provides  skin  temperature,  core 
temperature,  skin  heat  flux,  and  water  vapor  flux,  along  with  liquid  water  accumulation 
at  the  skin  surface.  The  integrated  model  couples  the  dynamic  behavior  of  the  clothing 
system  to  the  human  physiology  of  heat  regulation.  This  model  provided  the  opportunity 
to  systematically  examine  a  number  of  clothing  parameters,  which  are  traditionally  not 
included  in  steady-state  thermal  physiology  studies,  and  to  determine  their  potential 
importance  under  various  conditions  of  human  work  rates  and  environmental  conditions. 

7.2  Description  of  Human  Thermal  Model 

We  selected  a  particularly  simple  human  thermal  physiology  model  to  integrate 
with  the  clothing  model.  The  model  includes  appropriate  control  functions  for  variables 
such  as  sweating  rate,  metabolic  activity,  blood  flow  effects,  etc.  The  model  is  one¬ 
dimensional  in  nature  and  treats  the  body  as  a  single  thermal  zone.  In  effect,  to  put  it 
indelicately,  the  model  behaves  like  a  living  sweaty  slab  of  tissue  that  responds  to  the 
environment  in  a  manner  similar  to  the  way  the  human  body  responds.  Our  reasons  for 
selecting  the  simplest  model  we  could  find  was  that  we  wanted  to  demonstrate  the 
feasibility  of  applying  the  comprehensive  clothing  model  to  a  standard  physiological 
model,  and  we  wanted  to  do  all  the  programming  of  the  code  ourselves,  so  we  did  not 
have  to  rely  on  a  computer  program  written  by  someone  else,  with  all  its  quirks  and 
special  numerical  optimization  schemes  which  are  often  known  only  to  the  programmer. 
We  would  expect  that  the  next  step  is  to  integrate  the  clothing  model  with  more 
sophisticated  multi- zone  human  thermal  models  [103,104],  in  a  manner  similar  to  that 
done  by  Jones  [105]. 

The  body  is  modeled  as  a  one-dimensional  slab  [106,107].  The  thermal 
conductivity  of  the  body  is  a  function  of  the  average  body  temperature.  Blood  flow 
effects  are  included  in  the  effective  thermal  conductivity  for  the  tissue.  The  body  is 
divided  into  three  layers.  The  core  layer  generates  basal  metabolic  energy.  The  muscle 
layer  generates  energy  due  to  exercise,  or  due  to  shivering.  The  skin  layer  produces  no 
heat,  but  generates  sweat  at  rates  specified  by  the  physiological  control  functions.  The 
body  is  assumed  symmetrical  so  that  the  computational  domain  extends  from  the  body 
center  of  symmetry  outward  to  the  skin.  A  schematic  of  the  body  model  is  shown  in 
Figure  56. 
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(Temperature  and  Relative  Humidity) 


Line  of  Body  Symmetry 


Figure  56.  One-dimensional  thermoregulatory  model  of  the  human  body. 

The  governing  equations  for  the  thermal  physiology  model  are  given  below: 
Energy  Equation 


dT 


.  a2r 

~kB  ^7  +qm 


(7.1) 


p  cpB  product  of  density  and  heat  capacity  of  body  tissues  ( 4. 187  xlO6  J/m3-K) 

kB  thermal  conductivity  of  body  tissue  (W/m-K) 

qm  rate  of  heat  generation  due  to  metabolism  (W/m3-s) 

t  time  (s) 

T  temperature  (K) 

y  distance  from  body  center  of  symmetry  (m) 


Initial  conditions: 

at  t=0:  T=T(y) 

(7.2) 

Boundary  Conditions: 

3T  n 

aty=°:  ^-° 

(7.3) 

BT 

at  y=L:  K +  K  ( '?*  ~  Ta ) 

(7.4) 
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L  total  half-thickness  of  system  (0.056  m) 
m  mass  flux  of  water  vapor  from  skin  surface  (kg/m2-s) 

A h  enthalpy  of  vaporization  (J/kg) 

hc  convective  heat  transfer  coefficient  (W/m2-s) 

Tsk  skin  temperature  (K) 

Ta  ambient  air  temperature  (K) 

Average  body  temperature  is  defined  as: 

J> !•($./)<*  (7.5) 

Tb  average  body  temperature  (K) 

The  deviation  from  the  body's  setpoint  is  defined  as: 

£Tb  =  Tb-35.75  oC  =  T5-308.9  K  (7.6) 

A Tb  deviation  from  the  body's  setpoint  (K) 

The  body's  thermal  conductivity,  which  varies  to  simulate  vasodilation  effects,  is 
defined  in  terms  of  a  reference  thermal  conductivity,  and  proportional  and  rate  control 
functions  which  kick  in  when  the  average  body  temperature  deviates  from  the  setpoint 
(defined  as  35.75  °C). 

For  temperatures  above  the  body’s  setpoint: 

h  =  *so(l + -1-51  lkB0  ATB  >0  (7.7) 

kB0  reference  body  tissue  thermal  conductivity  (0.498  W/m-K) 
thermal  proportional  control  coefficient  (1/K) 

Y  thermal  rate  control  coefficient  (s/K) 

For  temperatures  below  the  body’s  setpoint: 

kB  =  *bo^1+ +7^^0.675^0  ATg  <0  (7.8) 

a,^  thermal  proportional  control  coefficient  (1/K) 
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The  sweating  rate  from  the  skin  is  also  defined  in  terms  of  deviations  from  body 
setpoint. 

For  temperatures  above  the  setpoint,  the  sweating  rate  is  given  by: 
j  =  s0+a5lArB+ai2(AT^)4<605  ATB>0  (7.9) 

For  temperatures  below  setpoint,  the  sweating  rate  is  given  by  the  basal  rate: 

$  =  J0  ATb<0  (7.10) 

s  sweating  rate  (kg/m2-s) 

s0  reference  basal  sweating  rate  (2.80  xlO6  kg/m2-s) 

a,  sweating  proportional  control  coefficient  (kg/m2-s-K) 

as2  sweating  proportional  control  coefficient  (kg/m2-s-K4) 


For  no  clothing  layer,  with  a  given  mass  transfer  coefficient,  mass  flux  of  water 
vapor  from  the  skin  surface  is  given  by: 


m  =  { 


Knipsk  Ca) 

[minimum of  [s^c^- ca)] 


Mml>  0 

A4v/  =  0 


hm  convective  mass  transfer  coefficient  (m/s) 
csk  water  vapor  concentration  at  skin  surface  (kg/m3) 

ca  water  vapor  concentration  of  ambient  atmosphere  (kg/m3) 

Mml  liquid  water  available  on  skin  surface  for  evaporation  (kg/m2) 


(7.11) 
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For  a  clothing  layer,  the  mass  transfer  coefficient  is  replaced  by  the  effective 
diffusion  coefficient  of  the  fabric  or  air  space  combined  with  the  thickness  of  the  first 
control  volume  above  the  skin  surface. 

The  mass  of  liquid  water  available  at  the  skin  surface  (M^;)  is  given  by: 

Mavl  =  (7. 12) 

\  dummy  integration  variable 


Metabolic  heat  generation  is  distributed  between  the  various  layers: 

—No  heat  generation  occurs  in  the  outer  skin  layer. 

—Basal  metabolic  heat  generation  takes  place  in  the  core  layer: 

(qm  =  1339  W/m3). 


The  muscle  layer  produces  heat  due  to  exercise,  or  due  to  shivering: 


4m  =  E  ATb>0 

(7.13) 

qm  =  E+AQh  ATB  <0 

(7.14) 

EQsh  ~  ~ashl^Tfi  +ash2(ATB) 

-1<ATb<0 

(7.15) 

ASt*  =  660. 3(W  /  m3)-ash2ATB 

ATb<-1 

(7.16) 

E  metabolic  energy  generated  in  muscle  layer  due  to  exercise  (W/m3-s) 
A Qsh  metabolic  energy  generated  due  to  shivering  (W/m3-s) 

ahl  shivering  proportional  control  coefficient  (W/m3-K) 
cc^  shivering  proportional  control  coefficient  (W/m3-K2) 
ah3  shivering  proportional  control  coefficient  (W/m3-K) 
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7.3  Integrated  Clothing  and  Human  Thermal  Model 

A  schematic  of  the  integrated  model  is  shown  below  in  Figure  57.  We  use  the 
existing  human  thermal  model,  and  place  two  material  layers  on  the  skin  surface.  By 
specifying  the  properties  of  these  two  layers,  we  can  have  the  material  layers  behave  like 
still  air  layers,  or  like  textile  layers.  For  most  of  these  simulations,  we  are  only  looking 
at  the  coupled  diffusion  of  heat  and  water  vapor.  If  there  is  any  extra  liquid  sweat  which 
builds  up  on  the  skin  surface,  it  does  not  drip  off  or  wick  into  the  fabric.  Later  in  this 
report  we  discuss  a  simulation  which  uses  a  very  simple  way  of  including  liquid  sweat 
wicking.  We  are  also  ignoring  gas  convection  due  to  pressure  differences,  which  can 
arise  either  due  to  body  movement,  or  due  to  external  air  movement  (wind). 


Environment 

(Temperature  and  Relative  Humidity) 
External  Heat  and  Mass  Transfer  Coefficients 


Fabric  Layer 


Fabric  or  Air  Layer 


I  ./Skin  Layer 


illlll  I  Muscle  Layer 


Line  of  Body  Symmetry 


Figure  57.  Human  thermal  control  system  model  combined  with  clothing  material 
model. 
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The  clothing  model  uses  the  one-dimensional  model  given  in  Chapter  5,  in 
equations  (5.15-33).  The  original  one-dimensional  material  model  used  convective  heat 
and  mass  transfer  coefficients  at  the  boundaries.  The  boundary  conditions  for  the  fabric's 
external  surface  remain  the  same  in  the  integrated  model,  but  the  boundary  conditions  for 
the  fabric's  inner  surface  are  determined  by  the  vapor  flux  and  heat  flux  from  the  human 
thermal  control  model.  The  material  properties  used  for  the  numerical  simulations  are 
given  in  Table  7-1,  and  are  similar  to  those  for  a  typical  cotton  fabric,  such  as  that  given 
in  Table  3-2,  Chapter  3. 

Table  7-1.  Assumed  Fabric  Layer  Properties 

Thickness:  9.14  x  10^  m 
Apparent  Bulk  Density  (Dry):  438  kg/m3 
Regain  at  65%  relative  humidity  R. :  0.06 
Effective  Diffusivity  Deff  :  6.09x1  O'6  m2/sec 
Fabric  Tortuosity  x  :  2.9 

Effective  solid  phase  diffusion  coefficient  Dsolii :  4.0  xlO'14  m2/sec 

Effective  fiber  diameter  df:  3.6  xlO'6  m 

Density  of  dry  polymer  :  1500  kg/m3 

Heat  capacity  of  diy  polymer  ( c :  1200  J/kg-K 

Thermal  conductivity  of  dry  polymer  :  0.16  J/sec-m-K 

An  example  of  the  general  model,  contained  in  the  USER  subroutine  ONEREV.F 
is  given  in  Appendix  D.  The  program  is  run  when  compiled  with  the  general  one¬ 
dimensional  equation  solver  EXP1D.F  contained  in  Appendix  B. 
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7.4  Effect  of  Changes  in  Environmental  Relative  Humidity 

We  first  examine  the  performance  of  the  integrated  model  for  the  situation  where 
the  environmental  relative  humidity  is  changed,  while  the  environmental  temperature 
remains  constant  This  situation  is  chosen  to  illustrate  the  difference  between  a 
hygroscopic  fabric,  which  actively  absorbs  water  vapor  and  releases  the  heat  of  sorption, 
and  a  nonhygroscopic  fabric,  which  remains  passive. 

One  of  the  ways  in  which  we  experimentally  verified  the  material  model  in  the 
laboratory  was  the  case  where  we  looked  at  the  temperature  rise  of  a  hygroscopic  fabric 
due  to  step  changes  in  relative  humidity.  It  is  interesting  to  conduct  the  same 
experiment  numerically  using  the  integrated  clothing/human  thermal  physiology  model. 

We  examine  two  cases  for  the  clothing  model.  One  case  is  a  highly  hygroscopic 
fabric  which  has  a  high  heat  of  sorption  (Table  7-1).  The  second  case  is  to  take  the 
exact  same  fabric  properties,  except  to  let  the  regain  equal  zero  at  all  conditions,  which 
turns  the  fabric  into  a  nonhygroscopic  fabric  such  as  polyester.  The  nonhygroscopic 
fabric  has  all  the  other  properties  of  the  hygroscopic  fabric,  such  as  thermal 
conductivity,  heat  capacity,  thickness,  effective  diffusivity,  etc.,  but  it  will  not  absorb 
water  vapor  from  the  atmosphere. 

We  start  off  by  letting  the  human  thermal  model,  with  the  clothing  layer, 
equilibrate  for  3  hours  under  warm  and  dry  conditions  of  35°C  and  10%  relative 
humidity.  The  human  work  rate  is  kept  constant  at  50  Watt/m2,  which  corresponds  to  a 
fairly  light  work  rate.  To  observe  the  differences  between  the  two  fabrics  we  suddenly 
change  the  relative  humidity  to  90%  for  1  hour,  beginning  at  hour  3,  and  then  change 
the  relative  humidity  back  tol0%,  at  hour  4. 

By  doing  this,  we  can  get  a  feel  for  how  much  skin  temperature  (which  relates  to 
comfort)  would  be  affected  by  the  different  regain  properties  of  a  hygroscopic  versus  a 
nonhygroscopic  fabric.  In  this  case  we  are  only  looking  at  environmental  changes.  We 
will  get  some  of  the  same  effects  if  the  environmental  conditions  remain  the  same,  and  if 
we  change  the  metabolic  energy  generation  rate  due  to  exercise,  which  will  change  the 
sweating  rate,  which  will  also  show  up  in  the  heat  generated/absorbed  in  the  hygroscopic 
clothing  layer. 
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Two  cases  are  shown  below  in  Figure  58  for  a  hygroscopic  and  a  nonhygroscopic 
fabric:  for  a  human  work  rate  of  50  Watt/m2,  and  an  environmental  temperature  of  35°C, 
the  relative  humidity  was  changed  from  10%  to  90%  for  one  hour. 


Time  (hours)  Time  (hours) 


(a)  Nonhygroscopic 


(b)  Hygroscopic 


Figure  58.  Calculated  temperatures  for  nonhygroscopic  and  hygroscopic  fabrics  covering 
sweating  human,  when  subjected  to  large  changes  in  environmental  relative  humidity. 


The  large  differences  in  skin  temperature  profiles  seen  in  Figure  58  imply 
differences  in  perceived  comfort  of  these  two  fabrics.  For  the  thin  fabrics  used  in  this 
simulation,  we  see  very  little  difference  between  the  two  fabrics  for  the  overall  thermal 
balance,  as  reflected  by  the  nearly  identical  body  core  temperatures  for  the  two  situations. 
We  would  expect  that  some  of  these  short-term  transient  effects,  which  affect  comfort, 
surface  temperature,  etc.,  would  be  much  less  important  to  the  overall  steady-state  heat 
transfer. 

Figure  58  shows  that  we  can  get  changes  in  fabric  surface  temperature  just  due  to 
changes  in  environment.  Most  standard  human  thermal  models  which  only  use  steady- 
state  clothing  properties,  would  not  pick  up  changes  such  as  these.  These  are  surface 
temperature  differences  between  the  two  cases  of  several  °C,  which  can  be  detected  by 
infrared  sensors,  so  it  is  possible  that  the  ability  to  model  the  surface  temperatures  of 
clothing  in  this  way  would  be  useful  in  the  study  of  the  thermal  signature  of  clothed 
humans. 
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Besides  the  temperature  variables  shown  in  Figure  58,  the  integrated  model  gives 
explicit  values  for  a  great  many  other  variables,  such  as  sweating  rate,  humidities, 
vaporization  rate,  porosity  changes,  percent  water  absorbed  as  a  function  of  location  in 
the  clothing  system,  etc.  In  Figures  59  and  60,  we  may  observe  a  comparison  of  the 
hygroscopic  versus  nonhygroscopic  case  for  the  three  quantities  of  skin  relative 
humidity,  liquid  sweat  accumulation  at  the  skin  surface,  and  volumetric  vaporization  rate 
at  the  skin  surface.  The  volumetric  vaporization  rate  is  equal  to  the  vaporization  rate  per 
unit  skin  area  divided  by  the  thickness  of  the  first  control  volume  at  the  skin  surface. 


Time  (hours) 


Figure  59.  Skin  surface  relative  humidity,  liquid  sweat  accumulation  at  skin  surface, 
and  vaporization  rate  at  skin  surface,  for  hygroscopic  fabric  case. 
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Figure  60.  Skin  surface  relative  humidity,  liquid  sweat  accumulation  at  skin  surface, 
and  vaporization  rate  at  skin  surface,  for  nonhygroscopic  fabric  case. 


7.5  Effect  of  Order  of  Clothing  Layers 


Keeping  in  mind  the  extreme  simplicity  of  the  assumptions  incorporated  into  our 
single-zone  human  thermal  physiology  model,  we  can  immediately  start  to  use  the 
integrated  model  to  look  at  factors  such  as  the  arrangement  and  properties  of  fabric 
layers,  and  how  they  might  affect  how  a  fabric  system  performs.  One  particularly  easy 
thing  to  try  is  to  vary  the  arrangement  of  two  fabric  layers  on  the  body.  Such  questions 
about  system  design  often  come  up  in  cold  weather  clothing  and  chemical  protective 
clothing  systems,  where  we  may  know  the  total  thermal  or  water  vapor  resistance  of  the 
clothing  system,  but  we  also  have  options  about  the  order  of  arrangement  of  those 
layers. 

We  will  place  the  two  fabric  layers  on  the  body  model,  and  only  vary  the 
hygroscopic  nature  of  each  fabric  layer.  We  again  examine  the  case  where  the  relative 
humidity  is  changed  from  10%  to  90%  relative  humidity  for  one  hour  at  hour  3,  and 
then  back  to  10%  relative  humidity  at  hour  4.  The  four  cases  examined  are  listed  below: 

Case  I  —  both  layers  nonhygroscopic 
Case  II  —  outer  layer  hygrosopic,  inner  layer  nonhygroscopic 
Case  in  --  inner  layer  hygrosopic,  outer  layer  nonhygroscopic 
Case  IV  --  both  layers  hygroscopic 

Cases  I  and  IV  were  shown  previously  in  Figure  58,  if  we  assume  that  the  total  thickness 
of  those  fabrics  were  equal  to  that  of  two  layers.  In  Figure  61  we  show  the  calculated 
fabric  surface  temperatures,  for  each  of  the  four  cases,  and  in  Figure  62  we  show  the 
calculated  skin  surface  temperatures. 


Figure  61.  Calculated  fabric  surface  temperatures,  for  four  layering  arrangements. 
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Figure  62.  Calculated  skin  surface  temperatures,  for  four  layering  arrangements. 

We  can  see  a  steady  progression  of  relative  differences  in  the  fabric  surface 
temperature  and  skin  temperature  due  to  the  differences  in  fabric  regain  and  the 
arrangement  of  the  two  layers,  but  again  we  didn't  see  much  difference  in  core 
temperature,  which  means  these  differences  have  the  most  impact  on  perceived  comfort, 
rather  than  overall  heat  stress.  We  also  emphasize  again  that  we  are  not  letting  liquid 
sweat  wick  into  the  clothing  layers,  but  only  allow  it  to  build  up  in  a  layer  on  the  skin 
surface. 
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7.6  Effect  of  Changes  in  Human  Work  Rate 

We  can  also  use  the  combined  model  to  look  at  how  hygroscopic  clothing 
properties  interact  with  increases  in  sweating  rate  and  exercise  levels  due  to  changes  in 
human  work  rate,  while  the  environmental  factors  remain  constant. 

The  first  situation  we  examine  is  a  change  in  human  work  rate  from  20  W/m2 
(light  work)  to  100  W/m2  (fairly  heavy  work).  The  environmental  conditions  are  30°C, 
65%  r.h.  We  again  examine  the  difference  between  clothing  layers  which  differ  only  in 
their  hygroscopic  nature.  No  air  layers  are  present,  and  again  the  fabric  does  not  wick 
liquid  sweat,  so  we  are  only  looking  at  the  diffusion  of  heat  and  water  vapor.  Human 
work  rate  is  changed  to  the  higher  level  between  hours  3  and  4. 
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Figure  63.  Differences  in  calculated  temperatures  between  hygroscopic  and 
nonhygroscopic  fabrics,  for  a  change  in  work  rate  from  20  to  100  W/m2. 
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Figure  64.  Differences  in  vaporization  rate  and  skin  relative  humidity  for  hygroscopic 
and  nonhygroscopic  fabrics,  for  a  change  in  work  rate  from  20  to  100  W/m2. 

Figure  63  and  64  show  some  of  the  same  effects  of  fiber  hygroscopicity  that  we 
saw  for  the  change  in  environmental  conditions,  but  in  this  case,  they  are  influenced  by 
the  increases  in  vapor  concentration  caused  by  increased  sweating  and  vaporization  rates 
at  the  skin  surface. 

Up  to  this  point,  we  have  neglected  sweat  accumulation  within  the  clothing 
layers,  which  is  quite  ludicrous  for  most  normal  fabric  materials.  The  large  amount  of 
sweat  generated  by  the  body  would  certainly  be  absorbed  by  the  clothing,  which  would 
produce  much  higher  vaporization  rates  than  those  predicted  by  the  pure  diffusion 
model.  Fortunately  it  is  quite  easy  to  incorporate  simple  wicking  effects  into  the 
clothing  model,  which  is  covered  in  the  next  section. 
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7.7  A  Simple  Model  of  Wicking  Effects  in  Clothing 

To  incorporate  liquid  sweat  movement  and  accumulation  in  clothing  layers,  we 
must  modify  the  one-dimensional  governing  equations  to  be  in  the  form  given  in  Chapter 
2,  Equations  (2.8.1-24).  The  major  simplifying  assumptions  are  that  we  again  neglect 
gas  phase  convective  transport,  and  only  consider  one  dimension.  The  major  change  is 
that  we  may  now  have  the  liquid  phase  present  within  the  averaging  control  volume,  and 
we  must  keep  track  of  the  liquid  volume  fraction,  and  the  rate  of  liquid-to-vapor  phase 
change  in  the  control  volume.  The  modified  set  of  one-dimensional  equations  are: 

Energy  equation: 

^  [pP  (c/>  + =1^10  (7.17) 


Solid  phase  continuity  equation: 

ps|(£*-)+<=°  or  f(E-)+^=0 


Gas  phase  diffusion  equation: 


Liquid  phase  continuity  equation: 


Liquid  phase  equation  of  motion: 

V  P 


Volume  fraction  constraint: 

£Y+e0  +  e*»'+e<& 


Thermodynamic  relations 


Pa  =  Py  —  Pv 

_n  R  T 

Pa  Pa  j..  T 
Ma 

„  _rt  R  T 

Pv  ~  Pv  „  .  T 
Mw 


(7.18) 

(7.19) 

(7.20) 

(7-21) 

(7.22) 


(7.23-25) 
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Sorption  Relation 


&bw  ~  0. 578ty 


z ds 


P  vj 


r  n  \ 

Pv_ 

[PsJ 


0.321+— 


Lv 


\ 
PsJ 


1 

- - TT 

1.262-— 

Pj 


(7.26) 


The  11  unknown  variables  for  the  clothing  layer  T,wiV,wiv,ey,£p,efcH„pv,pa,/7<„pv,^Vp^  . 


As  we  have  done  before,  the  source  term  due  to  vapor  sorption  is  modeled  by 
assuming  that  diffusion  into  the  fiber  is  quasi-steady  state.  The  polymer  at  the  fiber's 
surface  is  assumed  to  immediately  come  into  equilibrium  with  the  relative  humidity  of 
the  gas  phase  within  the  control  volume  for  that  grid  point.  The  mass  flux  into  or  out  of 
the  fiber  is  calculated  by: 

<  =  {Ktal  ~  Pstin  )  (7.27) 

af 

Rutal  instantaneous  fiber  regain  (kg  of  water  /  100  kg  of  dry  polymer)  [fraction] 

Rsldn  equilibrium  regain  at  relative  humidity  within  the  control  volume  [fraction] 

Dsolid  apparent  solid  phase  diffusion  coefficient  [m2] 
df  apparent  fiber  diameter  [m] 

In  a  similar  manner,  we  determine  a  source  term  for  evaporation  or  condensation 
from  the  liquid  phase  to  gas  phase  by  assuming  that  if  there  is  any  liquid  phase  present, 
the  partial  vapor  pressure  is  saturated.  If  the  vapor  pressure  is  above  saturation,  then 
condensation  takes  place  until  the  partial  vapor  pressure  is  at  saturation. 

Transport  Coefficients  and  Mixture  Properties 

The  transport  coefficients  and  mixture  properties  are  of  the  same  form  as  were 
used  in  Chapter  5,  but  must  be  modified  to  include  the  liquid  phase  volume  fraction. 


Kff  =  K 


[[i+ta 

+  £tov  +  £&) 

K+z 

y^v 

leA+ 

1  +  (£P  +  £m* 

+  e<&) 

W 

^  P ffcbw  +  Pds^ds  j 

rKPv  +  KPa' 

K  Pv+P*  ; 


(7.28) 


(7.29-30) 
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P  =  %  +eMvPp  +e^  +ev(Pv  +  P.) 


(7.32) 


£pPp  (0,  +  £MvPp  fo),  +  £*P*fel  +_  £r[pv  fo),  +  P«  fo).. 


(7.33) 


The  set  of  equations  (7.17-33)  given  above  are  of  a  form  compatible  with  those 
often  used  by  people  modeling  moisture  migration  or  drying  processes  in  porous 
material.  There  are  several  simplifying  assumption  we  can  make  which  will  allow  us  to 
proceed  to  a  very  simple  assumption  about  wicking  effects  in  clothing,  but  we  shall  first 
discuss  two  very  important  concepts:  capillary  pressure,  and  irreducible  saturation. 

The  capillary  pressure  Pc  is  often  a  function  of  the  fraction  of  the  void  space 
occupied  by  the  liquid.  Liquid  present  in  a  porous  material  may  be  either  in  a  pendular 
state,  or  in  a  continuous  state.  If  the  liquid  is  in  a  pendular  state,  it  is  in  discrete  drops  or 
regions  which  are  unconnected  to  other  regions  of  liquid.  If  liquid  is  in  the  pendular 
state,  there  is  no  liquid  flow,  since  the  liquid  does  not  form  a  continuous  phase.  There 
may  be  significant  capillary  pressure  present,  but  until  the  volume  fraction  of  liquid  rises 
to  a  critical  level  to  form  a  continuous  phase,  there  will  be  no  liquid  flow.  This  implies 
that  there  is  a  critical  saturation  level,  which  we  can  think  of  a  the  relative  proportion  of 
liquid  volume  within  the  gas  phase  volume,  which  must  be  reached  before  liquid 
movement  may  begin. 

Experimentally  measured  liquid  capillary  curves  often  show  significant  hysteresis 
depending  on  whether  liquid  is  advancing  (imbibition)  or  receding  (drainage)  through  the 
porous  material.  A  typical  curve  [108]  is  shown  below  in  Figure  65. 


Figure  65.  Typical  appearance  of  capillary  pressure  curves  as  a  function  of  liquid 
saturation  for  porous  materials. 


(7.44) 


We  may  take  a  definition  for  liquid  saturation  as: 


Vy+^p  ep  +  ey 


The  point  at  which  the  liquid  phase  becomes  discontinuous  is  often  called  the 
irreducible  saturation  (yj  [109].  When  the  irreducible  saturation  is  reached,  the  flow  is 
discontinuous,  which  implies  that  liquid  flow  ceases  when: 


ep<*,>[1_(£*  +  0] 


(7.45) 


An  empirical  equation  given  by  Stanish,  et  al.  [110],  suggests  a  form  for  the 
equation  for  capillary  pressure  as  a  function  of  fraction  of  void  space  occupied  by  liquid: 


Pc=a\ 


where  a  and  b  are  empirical  constants 


(7.46) 


For  liquid  permeability  as  a  function  of  saturation  [110]: 


£,= 


0; 


k; 


1-cos 


7t  (^P  /  £y) 

2  (1-4) 


(£p  /£y)  <  Sir 

(V£r)a^ 


where  is  the  liquid  phase  Darcy  permeability  when  fully  saturated. 


(7.47) 


Equations  7.46  and  7.47  can  be  incorporated  in  a  straightforward  manner  into  the 
one-dimensional  model;  however,  the  technical  problem  of  measuring  the  empirical 
constants  contained  in  these  equation  is  considerable. 

Another  way  to  look  at  a  moisture  diffusivity  equation  is  to  consider  the  moisture 
distribution  throughout  the  porous  material  as  akin  to  a  diffusion  process.  By  combining 
the  conservation  of  mass  and  Darcy's  equation,  a  differential  equation  for  the  local 
saturation  S  may  be  written  as  [111]: 


as 

dt 


d_ 

dx 


(7.48) 


where  the  "moisture  diffusivity"  is  given  by: 


K  we  rewrite  the  saturation  variable  S  in  terms  of  its  original  definition: 

Vo  £„ 

S  =  — ^— =  — . 

ep+£Y  ’ 

the  differential  equation  for  liquid  migration  under  the  influence  of  capillary  pressure 
may  be  written  as: 


fir  \ 
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dt 

l(ef+er)J 

dx 

(%+Er)  3x 

l(eK+er)J 

(7.50) 


Although  we  have  available  the  form  of  these  relations  for  the  capillary  pressures, 
and  permeability  as  a  function  of  saturation  and  irreducible  saturation,  we  have  very  little 
data  available  on  the  actual  values  of  permeabilities  for  representative  textile  fabrics. 
Wicking  studies  on  fabrics  are  usually  carried  out  parallel  to  the  plane  of  the  fabric  by 
cutting  a  strip,  dipping  one  end  in  water,  and  studying  liquid  motion  as  it  wicks  up  the 
strip  [112,1 13].  However,  wicking  from  the  body  through  the  fabric  layer  takes  place 
perpendicular  to  the  plane  of  the  fabric,  where  the  transport  properties  quite  different  due 
to  the  highly  anisotropic  properties  of  woven  fabrics. 

The  usefulness  of  the  relations  contained  in  equations  (7.44-50)  are  that  they 
allow  one  to  model  the  drying  behavior  of  porous  materials  by  accounting  for  both  a 
constant  drying  rate  period  and  a  falling  rate  period.  In  the  constant  rate  drying  period, 
evaporation  takes  place  at  the  surface  of  the  porous  material,  and  capillary  forces  bring 
the  liquid  to  the  surface.  When  irreducible  saturation  is  reached  in  regions  of  the  porous 
solid,  drying  becomes  limited  by  the  necessity  for  diffusion  to  take  place  through  the 
porous  structure  of  the  material,  which  is  responsible  for  the  "falling  rate"  period  of 
drying.  These  effects  are  most  important  for  materials  which  are  thick,  or  of  low 
porosity.  For  materials  of  the  porosity  and  thickness  typical  of  woven  fabrics,  almost  all 
drying  processes  are  in  the  constant  rate  regime,  which  suggests  that  many  of  the 
complicating  factors  which  are  important  for  thicker  materials  can  be  safely  ignored. 
Studies  on  the  drying  rates  of  fabrics  [1 14-1 16]  suggest  that  simply  assuming  drying 
times  proportional  to  the  original  liquid  water  content  are  a  good  predictor  of  the  drying 
behavior  of  both  hygroscopic  and  nonhygroscopic  fabrics.  Wicking  processes 
perpendicular  to  the  plane  of  the  fabric  wicking  take  place  very  quickly,  and  the  falling 
rate  period  is  very  short  once  most  of  the  liquid  has  evaporated  from  the  interior  portions 
of  fabrics.  The  one-dimensional  modeling  we  have  done  of  fabric  drying  also  suggests 
that  this  is  true:  for  thin  fabrics,  the  drying  rate  is  constant  for  most  of  the  drying  time, 
and  the  falling  rate  period  is  very  short.  We  have  also  found  that  extremely  small  time 
steps  must  be  taken  computationally  to  capture  the  falling  rate  period. 
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For  these  reasons,  we  decided  that  it  may  not  be  productive  at  this  point  to 
include  numerical  values  for  the  empirical  factors  and  constants  contained  in  equations 
7.44-50  in  the  integrated  clothing/human  thermal  physiology  model.  However,  it  is  a 
very  simple  matter  to  assume  a  veiy  high  liquid  permeability  and  very  high  capillary 
pressures,  which  cause  any  liquid  sweat  remaining  at  the  skin  surface  to  instantly  be 
distributed  within  the  free  porosity  of  the  fabric.  This  allows  us  to  look  at  two  different 
clothing  materials  which  are  identical  in  all  their  properties  except  that  one  material  will 
wick  sweat  away  from  the  skin  surface,  while  the  other  does  not  allow  wicking  through 
its  structure.  When  liquid  is  present,  wicking  effects  quickly  overwhelm  any  of  the  other 
diffusive  effects,  both  due  to  the  evaporation  of  liquid  water  within  the  clothing,  and  the 
increase  in  thermal  conductivity  of  the  porous  matrix  due  to  the  liquid  water  which 
builds  up  within  the  clothing  layers.  An  example  is  shown  in  Figure  66  for  the  case  of  a 
wicking  versus  a  nonwicking  fabric,  when  a  human  goes  from  a  light  work  rate  (20 
Watt/m2)  to  a  heavy  work  rate  (200  Watt/m2)  for  1  hour,  and  then  back  to  a  light  work 
rate.  Environmental  conditions  in  both  cases  are  air  temperature  of  30°C  and  relative 
humidity  of  65%. 


Time  (hours) 


Figure  66.  Comparison  of  a  wicking  versus  a  nonwicking  fabric  (other  properties 
identical)  during  changes  in  human  work  rate. 
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7.8  Conclusions 


The  integration  of  a  model  of  the  human  thermal  control  system  with  a  material 
model  for  the  coupled  diffusion  of  mass  and  energy  through  hygroscopic  porous 
materials  has  made  it  possible  to  examine  phenomena  such  as  transient  changes  in  skin 
and  clothing  surface  temperature  as  influenced  by  the  hygroscopicity  of  fabric  layers. 
Factors  important  to  the  design  of  clothing  systems,  such  as  the  placement  and  order  of 
fabric  layers,  and  the  relative  important  of  wicking  versus  nonwicking  fabrics,  may  be 
assessed  with  this  simple  model. 

The  clothing  model  and  the  physiological  model  are  relatively  independent.  This 
should  make  it  possible  to  incorporate  the  clothing  model  into  more  realistic  multi- zone 
models  of  the  human  thermophysiological  control  system. 
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CHAPTER  8 


CONCLUSIONS  /  RECOMMENDATIONS 


The  combination  of  test  methods  and  modeling  described  in  this  report  provides  a 
consistent  overall  picture  of  the  transport  of  energy  and  mass  through  protective  clothing 
systems  which  are  subjected  to  a  wide  range  of  human  sweat  generation  rates  and 
ambient  environmental  conditions.  The  integrated  numerical  model  described  here  is  a 
useful  analysis  tool  for  studies  of  the  various  transport  phenomena  affecting  the  thermal 
balance  of  clothed  humans  under  different  environmental  conditions.  It  addresses  the 
current  need  for  more  realistic  models  of  coupled  heat  and  mass  transfer  through 
hygroscopic  porous  textile  materials,  which  include  phenomena  such  as  liquid  water 
wicking,  condensation/evaporation  within  textile  layers,  concentration-dependent 
permeation  behavior  of  semipermeable  membrane  laminates,  and  the  sorption  behavior 
of  hygroscopic  textile  fibers. 

Conclusions 

1.  Whitaker's  theory  of  coupled  heat  and  mass  transfer  through  porous  media, 
when  modified  to  include  hygroscopic  porous  materials  which  can  absorb  liquid  into  the 
solid  matrix,  provides  a  very  useful  framework  to  describe  transport  phenomena  which 
take  place  in  clothing  materials.  The  system  of  equations  described  in  this  report  makes 
it  possible  to  evaluate  the  time-dependent  transport  properties  of  hygroscopic  and  non- 
hygroscopic  clothing  materials  by  including  many  important  factors  which  are  usually 
ignored  in  the  analysis  of  heat  and  mass  transfer  through  textile  materials.  The  set  of 
equations  allows  for  the  unsteady  capillary  wicking  of  sweat  through  fabric  structure, 
condensation  and  evaporation  of  sweat  within  various  layers  of  the  clothing  system, 
forced  gas  phase  convection  through  the  porous  structure  of  a  textile  layer,  and  the 
swelling  and  shrinkage  of  fibers  and  yams  as  they  absorb/desorb  liquid  water  and  water 
vapor. 

2.  The  dynamic  moisture  permeation  cell  (DMPC)  permits  rapid  testing  of  small 
quantities  of  permeable  fabrics  and  semipermeable  laminates  under  a  wide  variety  of  test 
conditions.  This  allows  determination  of  a  material's  transport  behavior  under  test 
conditions  which  are  difficult  or  impossible  to  reach  using  existing  standard  laboratory 
test  methods. 

3.  Water  vapor  permeation  results  obtained  with  the  DMPC  are  in  excellent 
agreement  with  those  from  the  ISO  1 1092  sweating  guarded  hot  plate  test  method,  and 
from  a  modified  inverted  ASTM  E  96  cup  test. 
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4.  The  DMPC  is  particularly  useful  for  characterizing  transient  diffusion  of 
hygroscopic  fabrics  subjected  to  step  changes  in  relative  humidity.  It  provides  excellent 
control  over  temperatures,  pressures,  and  vapor  concentrations,  which  is  necessary  for 
accurately  determining  the  time-dependent  and  nonlinear  transport  properties  of  clothing 
materials.  The  DMPC  also  provides  a  controlled  means  of  testing  porous  fabrics  under 
conditions  of  combined  diffusion  and  convective  transport,  in  a  way  that  provides 
experimental  data  to  verify  numerical  models  of  the  transport  processes  occurring  in 
hygroscopic  porous  textiles. 

5.  The  automated  air  permeability  apparatus  provides  experimental  data  on 
convective  gas  flow  transport  properties,  e.g.  Darcy  permeability  or  Darcy  flow 
resistance.  It  provides  a  means  of  exploring  and  characterizing  the  way  in  which  fabric 
structural  changes,  caused  by  fiber  swelling  at  high  humidities,  can  drastically  change 
the  air  permeability  of  fabrics  incorporated  into  clothing  systems. 

6.  The  one-dimensional  model  of  coupled  diffusion  of  mass  and  energy  in 
hygroscopic  porous  materials  performs  well  in  predicting  and  simulating  temperature 
changes  as  a  function  of  time,  and  weight  changes  as  a  function  of  time  —  two  quantities 
which  are  easily  measured  experimentally.  However,  the  one-dimensional  model 
neglects  factors  such  as  the  convective  transfer  of  energy  and  mass  through  the  porous 
structure  of  textiles,  which  is  often  of  more  practical  significance  than  the  diffusion 
properties  of  clothing  systems. 

7.  The  two-dimensional  model  of  gas  phase  convection/diffusion  through  porous 
hygroscopic  materials  successfully  simulates  steady-state  and  time-dependent  phenomena 
which  are  seen  experimentally.  The  ability  to  apply  the  proper  form  of  the  two- 
dimensional  transport  equations  to  a  particular  test  device  eliminates  much  of  the  need  to 
guess  or  estimate  boundary  heat  and  mass  transfer  coefficients,  since  they  are  taken  care 
of  automatically  in  the  course  of  the  computational  fluid  dynamic  and  heat  transfer 
calculations  involved  in  solving  for  the  gas  flow  field.  This  allows  one  to  get  a  clearer 
picture  of  the  behavior  of  the  porous  material  itself,  without  the  complications  of  the 
behavior  of  the  particular  experimental  apparatus  intruding  themselves  into  the  results. 

8.  The  integration  of  a  model  of  the  human  thermal  control  system  with  a 
material  model  for  the  coupled  diffusion  of  mass  and  energy  through  hygroscopic  porous 
materials  made  it  possible  to  examine  phenomena  such  as  transient  changes  in  skin  and 
clothing  surface  temperature  as  influenced  by  the  hygroscopicity  of  fabric  layers.  Factors 
important  to  the  design  of  clothing  systems,  such  as  the  placement  and  order  of  fabric 
layers,  and  the  relative  important  of  wicking  versus  nonwicking  fabrics,  may  be  assessed 
with  this  simple  model. 
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Recommendations 


1.  The  ability  of  the  model  to  account  for  the  swelling/shrinkage  of  textile  fibers 
due  to  changes  in  relative  humidity,  with  a  corresponding  change  in  fabric  porosity  and 
air  permeability,  is  being  explored  further,  by  generating  experimental  results  on  a  wide 
variety  of  hygroscopic  and  nonhygroscopic  fabrics.  Inertial  effects  at  higher  flow  rates 
will  be  incorporated,  and  the  experimental  results  will  be  analyzed  based  on  assumptions 
about  structural  factors  such  as  porosity,  effective  pore  size,  and  the  relative  importance 
of  intrayam  versus  interyam  porosity. 

2.  The  wicking  and  liquid  transport  portion  of  the  model  should  be  extended  and 
exercised  with  experimental  data  in  as  extensive  a  manner  as  was  done  for  diffusion/ 
convection  processes  in  the  gas  phase.  The  anisotropic  nature  of  the  liquid  transport 
process  can  be  taken  into  account  with  the  two-dimensional  model,  but  the  generation  of 
experimental  data  for  wicking  through  the  plane  of  the  fabric  will  require  significant 
effort. 

3.  The  two-dimensional  material  model  should  be  applied  directly  to  chemical 
agent  testing  conducted  on  chemical  protective  uniform  materials,  particularly  laboratory 
test  methods.  The  diffusion/convection  of  water  vapor/air/chemical  agent/simulant 
mixtures  may  be  modeled  and  used  to  explain/simulate  issues  which  arise  in  test 
methods  which  evaluate  samples  under  conditions  of  constant  pressure  drop  or  constant 
flow  rate  conditions. 

4.  The  two-dimensional  model  could  be  applied  to  a  cylindrical  geometry  in 
crossflow  conditions  in  a  wind  tunnel.  This  would  allow  modeling  and  simulation  of 
realistic  two-dimensional  flow  fields,  and  the  interaction  of  variable  fabric  permeability 
with  the  air  flow  through  and  over  a  simulated  clothing  system  covering  the  human  body. 

5.  The  direct  incorporation  of  the  enthalpy  of  phase  changes  in  the  basic  thermal 
energy  equations  of  the  model  should  make  it  possible  to  analyze  the  important 
parameters  of  new  clothing  items  incorporating  phase  change  materials  such  as 
encapsulated  paraffins,  which  is  a  topic  of  ongoing  research  programs  at  Natick  and  in 
industry. 

6.  The  application  of  the  integrated  clothing/human  thermal  physiology  model  to 
the  area  of  camouflage/detection,  e.g.,  modeling  the  varying  thermal  signature  of  clothed 
humans  should  be  explored.  The  model  may  be  especially  applicable  when  there  are 
rapid  changes  in  either  the  environment  (exiting  vehicles/shelters),  or  in  human  work/ 
metabolic  rate. 

7.  The  integrated  clothing/human  thermal  physiology  model  should  incorporate  a 
more  realistic  and  useful  version  of  the  human  thermoregulatory  system;  at  minimum  one 
which  models  thebody  as  a  set  of  different  thermal  zones. 
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To  summarize,  the  present  design  and  evaluation  process  for  a  new  protective 
clothing  system  is  veiy  expensive  and  time-consuming.  Textile  materials,  which  are  the 
basic  building  blocks  of  any  garment,  are  usually  selected  based  on  a  few  steady-state 
properties  determined  from  laboratory  tests.  A  long  process  of  design  iteration  using 
heated  manikins,  and  human  wear  trials  in  environmentally-controlled  chambers,  is  then 
begun  in  order  to  evaluate  the  dynamic  interactions  between  the  human,  clothing,  and  the 
environment.  Computational  power  has  progressed  to  the  point  where  it  is  now  possible 
to  approach  the  modeling  of  the  interaction  of  clothing/human  performance  in  a  truly 
integrated  fashion.  Computational  fluid  dynamic/heat  transfer  finite-element  techniques, 
which  capture  the  irregular  geometries  involved,  can  model  the  time-dependent  flows 
through  and  over  the  clothing  system.  Biomechanical  models  of  body  motion,  integrated 
with  human  thermoregulatory  models,  can  now  be  coupled  to  sophisticated  models  of 
heat  and  mass  transfer  through  clothing,  resulting  in  a  three-dimensional  model  of  the 
human/clothing  system,  which  incorporates  body  motion,  external  environmental 
conditions,  and  human  thermal  physiology. 
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Fabric  Physical  Properties 
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For  the  purposes  of  this  study,  it  was  desirable  to  have  the  physical  properties  of 
the  textile  samples  determined  in  the  dry  state,  with  no  absorbed  water  present,  rather 
than  at  the  standard  textile  test  conditions  of  65%  relative  humidity.  Fabric  samples  were 
dried  in  a  forced-convection  oven  for  two  days,  and  then  the  mass  and  thickness  were 
measured.  Thickness  measurements  in  textiles  are  often  problematic,  since  we  don't 
want  to  deform  the  material  we're  measuring,  since  in  the  test  methods  the  material  will 
not  be  under  any  pressure.  Thicknesses  were  therefore  measured  under  the  lightest 
possible  pressure  to  give  consistent  measurements. 

From  measurements  of  mass,  thickness,  and  area,  one  may  calculate  a  bulk 
density  pt  (kg/m3)  and  an  areal  density  (kg/m2).  From  property  tables,  one  may  find  the 
solid  density  of  the  polymers  making  up  the  textile.  The  material  dry  solid  volume 
fraction,  ,  is  defined  as:  =  pfc  /p& .  The  dry  gas  phase  volume  fraction  is  usually 

defined  as  1-e^ ,  but  this  can  be  misleading  as  shown  in  Figure  A.l  below.  The  gas 
phase  volume  fraction  is  actually  made  up  of  the  interyam  porosity,  through  which  most 
convective  and  diffusional  transport  takes  place,  and  the  intrayam  porosity,  which 
participates  much  less  in  transport  across  the  fabric  layer. 


Figure  A-l.  Schematic  of  fabric  illustrating  intrayam  and  interyam  volume  fraction. 

For  materials  which  are  a  mixture  of  two  or  more  fibers,  an  effective  solid  density 
is  assigned  based  on  the  mass  fractions  of  the  respective  solid  materials  making  up  the 
material. 

Fabric  regain  at  65%  relative  humidity  is  also  available  from  property  tables 
[117].  For  materials  which  are  a  mixture  of  two  or  more  fibers,  an  effective  regain  is 
calculated  based  again  on  mass  fraction  weighting  of  the  respective  solid  materials 
making  up  the  material. 
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Table  A-l.  Fabric  Physical  Properties 
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Table  A-2  presents  diffusion  properties  determined  in  the  DMPC  at  20°C,  with  top 
humidity  at  0.60,  bottom  humidity  at  0.0.  The  apparent  boundary  layer  resistance  was 
taken  to  be  95  s/m. 

Table  A-2  Diffusion  Properties  of  Two  Fabric  Layers 


Sample  Identification 

Total  Diffusion  Resistance 
(includes  boundary 
layer  resistances) 

(s/m) 

Apparent  Fabric  Diffusivity 
(rrF/s) 

Apparent  Tortuosity  Factor 

Wool 

289 

6.63  E-6 

2.35 

Silk 

161 

4.09  E-6 

3.94 

Cotton 

196 

7.60  E-6 

2.12 

Wool  /  Polyester 

217 

7.24  E-6 

2.14 

Nylon  /  Cotton 

250 

5.97  E-6 

2.49 

Nylon 

289 

8.87  E-6 

1.82 

Polyester 

194 

1.19  E-5 

1.50 

PTFE  Rim 

112 

i 

- 

- 
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Table  A-3.  Textile  Fiber  Thermal  Properties 


Heat 

Capacity 
[  J/(kg-K)  ] 

[118] 

Thermal 
Conductivity 
[  J/(s-m-K)  ] 
[119] 

Wool 

1360 

0.20** 

Silk 

1380 

0.20** 

Cotton 

1210 

0.16 

Wool/Polyester* 

1348 

0.16 

Nylon/Cotton* 

1320 

0.20 

Nylon 

1430 

0.25 

Polyester 

1340 

0.14 

*  Mass  fraction  weight  averages 

**  estimated 
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Table  A-4.  Darcy  Flow  Resistance  Properties 


(«J>=0)  Rm  (4.=1) 


[nr1] 

Wool 

0.614 

Silk 

0.353 

Cotton 

1.23 

Wool/Polyester 

0.425 

Nylon/Cotton 

1.55 

Nylon 

0.930 

Polyester 

0.226 

[nr1  ] 

108 

1.08 

x  108 

108 

0.760 

x  108 

108 

2.40 

x  108 

108 

0.595 

x  108 

108 

1.85 

xlO8 

108 

0.868 

x  108 

108 

0.226 

oo 
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Appendix  B 

One-Dimensional  Numerical  Code 
to  Solve  Transient  Coupled  Diffusion  Problem 


179 


Table  B-l.  Sorption  Rate  Factors 


Material 

Value  of  Fitting  Parameter 
[hc  =40.0  W/(m2-s)] 

^ solid 

42 

Value  of  Fitting  Parameter 
[he  =21.8  W/(m2-s)] 

Ku 

Wool 

0.0231 

0.00813 

Silk 

0.0906 

0.0363 

Cotton 

0.0344 

0.0144 

Wool/Polyester 

0.0319 

0.0138 

Cotton/Nylon 

0.0269 

0.0113 

Nylon 

0.0481 

0.0194 

Polyester 

0.0489 

0.0256 
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ooonooooo 


One-Dimensional  Main  Program  «  EXP1D.F 


c - 

C  -  THIS  IS  THE  1-D  VERSION  - 

C 

C  -  This  version  can  handle  mass  source  term  - 
and  unsteady  situation 


This  Program  is  made  unsteady  - 

-  ON  - 

-  January  25,  1993  - 

- Revised  October,  1994 - 

—to  include  the  exponential  scheme — 


C - Modified  March,  1995  to  be - 

C - One-Dimensional  Only - 

c - 

PROGRAM  MAIN 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

LOGICAL  LSTOP , L STEADY 
COMMON/ CNTL /LSTOP,  LSTEADY,  LSCHEME 
CALL  DEFALT 
CALL  GRID 
CALL  SETUP 1 
CALL  START 
CALL  UNSTDY 
10  CALL  DENSE 
CALL  BOUND 
CALL  OUTPUT 
IF (LSTOP)  STOP 
CALL  SETUP2 
GO  TO  10 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  SOLVE 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

c******************************************* 

CHARACTER  TITLE*18 

LOGICAL  LSOLVE, LPRINT, LBLK, LSTOP, LSTEADY 
PARAMETER  (JD=100,NFD=20,NFP3=23 ,MIJ=100) 

COMMON  F (JD,NFD) ,RHO(JD) , GAM ( JD) ,CON(JD) , 

1  AJP (JD) , AJM(JD) , AP (JD) , 

2  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) , 

3  YCVR(JD) ,YCVRS(JD) 

COMMON  PT (MI J) , QT (MIJ) 

COMMON/ CNTL/LSTOP , LSTEADY , LSCHEME 

COMMON/ INDX/NF , NFMIN , NFMAX , NP , NRHO , NGAM , Ml , M2 ,  M3  , 

1 JST , ITER , JITER , LAST , TITLE (NFP3 ) , RELAX (NFP3 ) , TIME , DT , YL , 

2JPREF , LSOLVE (NFP3 ) , L PRINT (NFP3) , LBLK (NFP3 ) , RHOCON 
£****************************************************************** 
c  print  *,  'SOLVE' 
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c  print  *,nf 

JSTF=JST-1 
JT1=M2+JST 
JT2=M3 +JST 

C - 

N=NF 

C -  TDMA  - 

PT ( JSTF) =0 . 

QT ( JSTF) =F ( JSTF,N) 

DO  270  J=JST,H2 
DENOM=AP(J) -PT(J-l) *AJM(J) 

PT ( J) =AJP ( J) /DENOM 
TEMP=CON(J) 

QT ( J) = (TEMP+AJM ( J) *QT ( J-l) ) /DENOM 
270  CONTINUE 

DO  280  JJ=JST,M2 
J=JT1-JJ 

280  F(J,N)=F(J+1,N)*PT(J) +QT ( J) 

RETURN 

Q* ***************************** 

ENTRY  RESET 
DO  400  J=1,M1 
CON ( J) =0.0 
AP  ( J) =0 . 0 
400  CONTINUE 
RETURN 
END 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  SETUP 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

q* ********************************************************* 

CHARACTER  TITLE*18 

LOGICAL  LSOLVE , LPRINT , LBLK , LSTOP , LSTEADY 
PARAMETER  (JD=100,NFD=20,NFP3=23 ,MIJ=100) 

COMMON  F ( JD,NFD) ,RHO(JD) , GAM(JD) ,CON(JD) , 

1  AJP(JD) ,AJM(JD) ,AP(JD) , 

2  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) , 

3  YCVR ( JD) , YCVRS ( JD) 

COMMON  PT(MIJ) ,QT(MIJ) 

COMMON/ INDX/NF , NFMIN , NFMAX , NP , NRHO , NGAM , Ml , M2 , M3 , 

1JST, ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3 ) , TIME , DT , YL , 

2JPREF , LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , RHOCON 
COMMON/CNTL/LSTOP, LSTEADY, L SCHEME 
COMMON/ SORC/SMAX, SSUM 
COMMON/COEF/FLOW, DIFF, ACOF 

COMMON/ UNSTEDY/ FOLD (JD,NFD) ,FNEW(JD) , JLAST , 

1  IFLAG(NFD) ,EPS (NFD) , DIFMAX, JFLAG, deltat 
COMMON/EXPNT/ ALAMBDA ( JD ) ,FP (JD) 

DIMENSION  U ( JD) , V ( JD) , PC ( JD) , P ( JD) 

EQUIVALENCE (F (1,1) ,U(1) ) , (F (1 , 2) ,V(1) ) , (F (1 ,3) , PC (1) ) 
EQUIVALENCE (F ( 1,4)  ,P(1)  ) 

Q* ****************************************************************** 

1  FORMAT { / / , 15X , ' COMPUTATION  IN  CARTES IAN  COORDINATES ' ) 

2  FORMAT (//, 15X, 'COMPUTATION  FOR  AXISYMMETRIC  SITUATION') 
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3  FORMAT ( /  / , 15X, ' COMPUTATION  IN  POLAR  COORDINATES ' ) 

4  FORMAT (14X, 40 (1H* ) , // ) 


ENTRY  DEFALT 
NP=4 
NFMIN=5 
NFMAX=20 
NRHO =NFMAX+ 1 
NGAM=NFMAX+2 
NCON=NFMAX+3 
LSTOP=. FALSE. 

LAST=5 
TIME=0 . 0 
ITER=0 
JITER=0 
LSCHEME=1 
LSTEADY=. FALSE. 

DT=1 . 0D+20 
JPREF=1 
RHOCON= 1 . 0 
DO  877  IL=1 , NFP3 
LSOLVE ( IL) = . FALSE . 

LPRINT(IL)=. FALSE. 

LBLK ( IL ) = . TRUE . 

RELAX (IL) =1.0 

877  CONTINUE 

DO  878  K=1,NFD 
EPS (K) =1 . 0D+20 
IFLAG (K) =1 

878  CONTINUE 
RETURN 

C - 

ENTRY  SETUP1 
M2=M1-1 
M3  =M2 - 1 
Y ( 1 ) =YV ( 2 ) 

DO  10  J=2,M2 

10  Y (J) =0 . 5* (YV ( J+l) +YV ( J) ) 

Y  (Ml)  =YV  (Ml) 

DO  35  J=2 ,M1 
35  YDIF(J)=Y(J) -Y(J-l) 

DO  40  J=2 ,M2 
40  YCV ( J) =YV ( J+l ) -YV ( J) 

CON, AP,U,V, RHO, PC  AND  P  ARRAYS  ARE  INITIALIZED  HERE 
DO  95  J=1 ,M1 
PC(J)=0. 

U(J)=0. 

V(J)=0. 

CON ( J ) =  0 . 

AP ( J) =0 . 

RHO ( J) =RHOCON 
P(J)=0. 

95  CONTINUE 
PRINT  4 
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RETURN 


C - 

ENTRY  SETUP2 
c  print  *,  ' SETUP2 ' 

COEFFICIENTS  FOR  THE  U  EQUATION 
NF=1 

CALL  RESET 

IF ( .NOT.LSOLVE (NF) )  GO  TO  100 
100  CONTINUE 

COEFFICIENTS  FOR  THE  V  EQUATION - 

NF=2 

CALL  RESET 

IF ( .NOT.LSOLVE (NF) )  GO  TO  200 
IF (LSTEADY)  IFLAG (NF) =0 
200  CONTINUE 
NF=3 

CALL  RESET 

IF ( .NOT.LSOLVE (NF) )  GO  TO  300 
IF (LSTEADY)  IFLAG (NF)=0 
300  CONTINUE 

COEFFICIENTS  FOR  THE  PRESSURE  EQUATION _ 

NF=NP 

IFLAG (NF)=1 
CALL  RESET 

IF ( .NOT.LSOLVE (NF) )  GO  TO  500 
500  CONTINUE 

COEFFICIENTS  FOR  OTHR  EQUATIONS - 

c  print  *,  'other  equations' 

c  print  *,nf 

JST=2 

DO  600  NF=NFMIN , NFMAX 

IF ( .NOT.LSOLVE (NF) )  GO  TO  600 

IF (LSTEADY)  IFLAG (NF)=0 

CALL  RESET 

CALL  GAMSOR 

c  print  *,  'other  equations  after  not  lsolve,  nf,  lsolve' 

c  print  *,  nf, lsolve (nf) 

REL=1. -RELAX (NF) 

DIFF=GAM ( 1 ) /YDIF ( 2 ) 

AJM(2 ) =DIFF 

DO  603  J=2 ,M2 

IF (J.EQ.M2)  GO  TO  606 

DIFF=2 . *GAM(J) *GAM(J+1) / (YCV(J) *GAM(J+1) 

1+YCV(J+1) *GAM(J) ) 

GO  TO  607 

606  DIFF=GAM (Ml ) /YDIF (Ml ) 

607  AJM ( J+l ) =DIFF 
AJP(J) =AJM(J+1) 

VOL=YCV(J) 

APT=VOL*RHO ( J)  /DT 
CON ( J) =CON ( J) *VOL/APT 

AP ( J) =-AP ( J) *VOL+AJP ( J) +AJM ( J) 

ALAMBDA(J) =AP ( J) /APT 
AJP ( J) =AJP ( J) /APT 
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AJM ( J ) =AJM ( J ) /APT 
603  CONTINUE 

CALL  FACTOR 

DO  608  J=2 , M2 

AP ( J) =1 . 0+ALAMBDA ( J) *FP ( J) 

CON ( J) =CON ( J) +AJP ( J) * (1 . -FP ( J+l) ) *FOLD ( J+l ,NF) 
1+AJM ( J) * (l.-FP(J-l) ) *FOLD ( J-l , NF) 

CON ( J) =CON ( J) + ( 1 . 0+FP ( J) *ALAMBDA ( J ) - ALAMBDA ( J ) ) * 
1FOLD ( J, NF) 

AJP ( J) =AJP ( J) *FP (J+l ) 

AJM ( J) =AJM ( J) *FP (J-l) 

AP ( J) =AP ( J) /RELAX (NF) 

REL=1 . -RELAX (NF) 

CON ( J) =CON ( J ) +REL*AP ( J) *F ( J, NF) 

608  CONTINUE 


DO  730  J=JST,M2 
FNEW  ( J)  =F  ( J,  NF) 

730  CONTINUE 

C - 

CALL  SOLVE 

C - 

DIFMAX=0 . 0 
DO  731  J=2,M2 

DELTAT=DABS( (F(J,NF) -FNEW(J) )/ (F (J,NF) +1 .D-200)  ) 
DIFMAX=DMAX1  (DIFMAX,  DELTAT) 

731  CONTINUE 

IF (DIFMAX.LE.EPS (NF) )  IFLAG (NF) =1 
call  output 


600  CONTINUE 

JITER=JITER+1 
IF (JITER.LT. 2)  RETURN 

JFLAG=0 

DO  732  N=1 , NFD 
JFLAG=JFLAG+ IFLAG (N) 

732  CONTINUE 

IF ( JFLAG . EQ . NFD )  GO  TO  742 

IF (JITER.LT. JLAST)  RETURN 

CALL  BOUND 

CALL  SAVE1 

CALL  OUTTOO 

CALL  SAVE PC 

print  *,  'Number  of  Iterations  Exceeds  JLAST' 
LSTOP= . TRUE . 

RETURN 

C*  ******************************************* 

742  CONTINUE 
JITER=0 
ITER=ITER+1 

IF  (LSTEADY)  TIME=TIME+DT 
CALL  UNSTDY 
CALL  BOUND 
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CALL  OUTTOO 
CALL  SAVE2 
CALL  SAVE PC 

IF ( ITER. GE. LAST)  LSTOP=.TRUE. 

IF ( ITER . GE . LAST ) THEN 

print  *,  'Number  of  iterations  exceeds  LAST' 

ENDIF 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  SUPPLY 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

c***************************************************************** 

CHARACTER  TITLE* 18 

LOGICAL  LSOLVE , LPRINT , LBLK , LSTOP , L STEADY 
PARAMETER  (JD=100,NFD=20,NFP3=23,MIJ=100) 

COMMON  F(JD,NFD) ,RHO(JD) , GAM(JD) ,CON(JD) , 

1  AJP(JD) ,AJM(JD) ,AP(JD) , 

2  Y(JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) , 

3  YCVR(JD) ,YCVRS(JD) 

COMMON  PT (MI J ) , QT (MI J ) 

COMMON/ CNTL /LSTOP , L STEADY, LSCHEME 

COMMON/ INDX/NF , NFMIN , NFMAX , NP , NRHO , NGAM , Ml , M2 , M3 , 

1JST, ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3 ) , TIME, DT,  YL, 

2 JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , RHOCON 
DIMENSION  U (JD) , V ( JD) , PC ( JD) , P ( JD) 

EQUIVALENCE (F( 1,1) ,  U  (1 ) ) ,  (F (1 , 2 ) ,  V  (1) )  ,  (F (1 , 3 ) , PC  (1 ) ) 
EQUIVALENCE (F (1,4) ,P(1) ) 

C* ************************************************************** 

10  FORMAT ( 14 ( IX, 1H*) , 3X, A10 , IX, 14 (IX, 1H* ) ) 

20  FORMAT (IX, 4H  I  =,16,619) 

30  FORMAT ( IX, 1HJ) 

40  FORMAT ( IX , 12 , 3X , 1P7E9 . 2 ) 

50  FORMAT (IX, 1H  ) 

51  FORMAT (IX, ' I  =' ,2X, 6 (14, 9X) ) 

52  FORMAT (IX, 'X  =',1P6E12.4) 

53  FORMAT ( ' TH  =',1P6E12.4) 

54  FORMAT (IX, 'J  =' , 2X, 6 (14 , 9X) ) 

55  FORMAT (IX, 'Y  =',1P6E12.4) 

Q*************************************************************** 

C - 

ENTRY  UGRID 
YV (2) =0 . 

DY = YL / DFLOAT (Ml-2 ) 

DO  2  J=3 ,M1 
2  YV ( J) =YV ( J-l) +DY 
RETURN 

(^* *************************************** 

ENTRY  PRINT 


RETURN 

END 

SUBROUTINE  FACTOR 
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IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
c****** **************************************************** 
CHARACTER  TITLE* 18 

LOGICAL  LSOLVE , LPRINT , LBLK , LSTOP , LSTEADY 
PARAMETER  (JD=100/NFD=20,NFP3=23 ,MIJ=100) 

COMMON  F (JD,NFD) ,RHO(JD) , GAM ( JD ) ,CON(JD)  , 

1  AJP(JD) ,AJM(JD) ,AP(JD) , 

2  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS (JD) , 

3  YCVR ( JD) , YCVRS ( JD) 

COMMON  PT (MIJ) , QT (MIJ) 

COMMON/ INDX/NF , NFMIN, NFMAX , NP , NRHO , NGAM ,  Ml ,  M2  ,  M3  , 

1JST, ITER, J ITER, LAST, TITLE (NFP3) , RELAX (NFP3 ), TIME, DT,YL, 
2 JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , RHOCON 
COMMON/ CNTL/LSTOP, LSTEADY, LSCHEME 
COMMON/ SORC/ SMAX , SSUM 
COMMON/ COEF /FLOW, DIFF , ACOF 

COMMON/UNSTEDY/FOLD ( JD, NFD) , FNEW ( JD) , JLAST, 

1  I FLAG (NFD) , EPS (NFD) , DIFMAX, JFLAG, deltat 
COMMON/EXPNT/ ALAMBDA ( JD) , FP ( JD) 

C*****l-exp0nentiai  scheme,  2-implicit,  3-Crank-Nicolson 
GO  TO  (1,2,3, 4)LSCHEME 
c*****exponENTIAL  SCHEME 

1  DO  10  J=2 , M2 

IF (ALAMBDA ( J ) .GE.O. . AND . ALAMBDA ( J ) . LT .10.) THEN 
FP (J ) =1 .-( 1 .-( 1 1 *ALAMBDA (J ))* *5 ) /ALAMBDA (J) 

END  IF 

IF (ALAMBDA (J) .GT. 10 . ) FP (J) =1 . -1 . /ALAMBDA (J) 

FP ( 1 ) =1 . 0 
FP (Ml ) =1 . 0 
10  CONTINUE 
RETURN 

C*****IMPLICIT  SCHEME 

2  DO  20  J=1,M1 
FP ( J) =1 . 0 

20  CONTINUE 
RETURN 

C*****CRANK_NIC0LS0N  SCHEME 

3  DO  30  J=1 ,M1 
FP ( J) =0 . 5 

30  CONTINUE 
C*****EXPLICIT  SCHEME 

4  DO  40  J=1,M1 
FP ( J) =0 . 0 

40  CONTINUE 
RETURN 
END 
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User  Program  -  DIFFUSE.F 


C*****APRIL  1995 

SUBROUTINE  DIFFUSE 

C*****This  is  1-d  test  case  for  vapor  diffusion  problem 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
£********************************************************** 
CHARACTER  TITLE*18 
CHARACTER  DATAFILE*60 
CHARACTER  MARKER* 4 

LOGICAL  LSOLVE , LPRINT , LBLK , LSTOP , LSTEADY , I BUG 
PARAMETER  ( JD=1 0 0 , NFD=2 0 , NFP3 =23, MI J= 100) 

PARAMETER  (ISLAB=21) 

COMMON  F (JD,NFD) ,RHO(JD) , GAM ( JD) , CON ( JD) , 

1  AJP(JD) ,AJM(JD) ,AP(JD) , 

2  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) , 

3  YCVR ( JD) , YCVRS (JD) 

COMMON/  INDX/NF ,  NFMIN ,  NFMAX ,  NP ,  NRHO ,  NGAM ,  Ml ,  M2 ,  M3  , 

1JST, ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3) , TIME ,  DT , YL , 

2 JPREF , LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , RHOCON 
COMMON/CNTL/ LSTOP, LSTEADY, LSCHEME 
COMMON/ SORC/SMAX, SSUM 
COMMON/COEF/FLOW, DIFF , ACOF 

COMMON/UNSTEDY/FOLD ( JD, NFD) ,FNEW(JD) , JLAST , 

1  IFLAG (NFD) , EPS (NFD) , DIFMAX, JFLAG, deltat 
COMMON/EXPNT/ALAMBDA ( JD) , FP ( JD) 

DIMENSION  U ( JD) ,V(JD) , PC ( JD) , P ( JD) 

EQUIVALENCE (F (1,1)  ,U  ( 1)  )  ,  (F ( 1 , 2 ) , V (1) ) ,  (F (1 , 3 ) , PC (1) ) 
EQUIVALENCE ( F ( 1 , 4 ) ,P(1) ) 

Q* ************************************************* 

c 

DIFFUSION  PROBLEM**************************** 
COMMON/ PROPS /datafile, iwrite , nprint , RF , TAU, EDS , RHODS , 

1RHOW,  TKDS ,  TKW,  TKV,  TKA,  CPDS ,  CPW,  CPV,  CPA,  PATM,  RGAS ,  XMW,  TKEFF1 , 
1XMA ,  CHTC ,  CMTC ,  DSOLID ,  METHOD ,  EPSRHOV ,  aL ,  aL2 ,  DDRY ,  DWET ,  THICK 
COMMON /  BNDRY /  PSATB ,  RHBND ,  TBND ,  PVBND ,  RHOVBND ,  PABND ,  RHOABND , 

1 PS ATBB , PS ATBT , RHBNDB , RHBNDT , TBNDB , TBNDT , PVBNDB , PVBNDT , 

1 RHOVBNDB ,  RHOVBNDT ,  PABNDB ,  PABNDT ,  RHOABNDB ,  RHOABNDT , 

1WEIGHTI , WEIGHT , WEIGHTG , RHINT , EBWINT , EBWSAT , TINT 
COMMON/DSORC/ cf2 (101) ,cfol2 (101) ,tsoln2 (101) ,cfdim(101) , 
lta2 (101) ,tb2 (101) , tc2 (101) ,trr2 (101) ,alpha(101) , 
lcfnew( JD, islab) , cfold (JD, islab) 

DIMENSION  T ( JD) ,RHOV(JD) ,EBW(JD) ,XMDOT(JD) , 
lEGAM(JD) , RHOAIR ( JD) , PV( JD) , PA( JD) , PSAT (JD) 

EQUIVALENCE (F ( 1 , 5 ) ,RHOV(l) ) , (F(l,6) ,T(1) ) , 

1 (F (1, 7) ,EBW (1) )  ,  (F (1 , 8) , XMDOT ( 1 ) ) , 

1 (F(l,9) , EGAM  ( 1 ) ) ,  (F(l,10) ,RHOAIR(l)) , 

1 (F ( 1 , 11) , PV (1 ) ) , (F (1, 12) , PA(1) ) , (F(l, 13) , PSAT(l) ) 
common  /phil/  dxs,dts 
DATA  TITLE (5 ) /7H  RHOV/ 

DATA  TITLE ( 6 ) /7H  TEMP/ 
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DATA  TITLE (7 ) /7H  EBW/ 

DATA  TITLE (8) /7H  XMDOT/ 

DATA  TITLE (9 ) /7H  EGAM/ 

DATA  TITLE ( 10 )/7H  RHOAIR/ 

DATA  TITLE (11) /7H  PVAP/ 

DATA  TITLE ( 12 )/7H  PAIR/ 

DATA  TITLE ( 13 )/7H  PSAT/ 

DATA  IBUG/ . false . / 

Q* ************************* 

ENTRY  GRID 

IF  (IBUG)  PRINT  *,  "ENTRY  GRID" 

C*****FABRIC  THICKNESS************ 

CALL  PROPERTY 
YL=THICK 

C*****NUMBER  OF  GRID  POINTS 
Ml=ll 
CALL  UGRID 
RETURN 

Q***** *********************************** *********** 

c 

ENTRY  START 

IF  (IBUG)  PRINT  *,  "ENTRY  START" 

C***** input  the  data  file  name 
nprint=100 
iwrite=nprint 

open(unit=10, file=' filename' ) 
read (10, *) datafile 
close(lO) 
marker= ' a ' 

C*****LSCHEME=l-exponential,2-implicit , 3-Crank-Nicolson 
LSTEADY  = . TRUE . 

LSCHEME=1 

C*****MASS  SOURCE  METHOD;  1 -EQUILIBRIUM,  2-SOLID  DIFFUSION, 
C*****SEMI_INFINITE  SOLID,  3-SOLID  DIFFUSION,  FINITE  SLAB, 

C ***** 4 -SORPTION  EQUILIBRIA, 5-variable  diffusion  coefficient, 
C*****6-alternate2 
METHOD= 4 
LSOLVE ( 5 ) = . TRUE . 

LSOLVE ( 6 ) = . TRUE . 

DT=l.D-2 
EPS (5) =1 .D-3 
EPS (6) =1 .D-3 
JLAST=10000 
LAST=360000 
RELAX ( 5 ) = . 5D0 
RELAX ( 6 ) =1 . DO 
c  CALL  PROPERTY 

c  *  *  *  *  * INITIAL  CONDITIONS 
TINT=293 . 15D0 
RHINT=.00D0 

EBWINT= ( 0 . 578DO*RF*EDS*RHODS/RHOW) 

1* (RHINT) * ( (1 .DO/ ( .321D0+ (RHINT) ) ) 

1+ (1 .DO/ (1.262D0- (RHINT) ) ) ) 

RH100=1.D0 
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EBWSAT= (0 .578DO*RF*EDS*RHODS/RHOW) 

1* (RH100) * ( (l.DO/ ( .321D0+ (RH100) ) ) 

1+ (1 .DO/ (1 .262D0- (RH100) ) ) ) 

PSATI=614 .3D0*DEXP (17 . 06D0* ( (TINT-273 . 15D0) 

1  / (TINT-40. 25D0) ) ) 

PVINT=RHINT*PSATI 
RHOVINT=PVINT*XMW/ (RGAS*TINT) 

C*****B0UNDARY  CONDITIONS 
C*****TOP  OF  SLAB 

RHBNDT=0 . 99D0 
TBNDT=293 . 15D0 

PSATBT=614 .3D0*DEXP (17 . 06D0* ( (TBNDT-273 . 15D0) 
1  / (TBNDT-40.25D0) ) ) 

P VBNDT= P  S ATBT  *  RHBNDT 
PABNDT= PATM- PVBNDT 
RHOABNDT=PABNDT*XMA/ (RGAS*TBNDT) 

RHOVBNDT = PVBNDT  *XMW / (RGAS*TBNDT) 

C*****BOTTOM  OF  SLAB 
RHBNDB= . 99D0 
TBNDB=293 . 15D0 

PSATBB=614 .3D0*DEXP (17 . 06DO* ( (TBNDB-273 . 15D0) 
1  / (TBNDB-40.25D0) ) ) 

PVBNDB= PS ATBB  *  RHBNDB 

PABNDB=PATM- PVBNDB 

RHOABNDB= PABNDB  *XMA/ (RGAS*TBNDB) 

RHOVBNDB = PVBNDB  *XMW / ( RGAS  *TBNDB ) 

DO  100  J=1 ,M1 
T ( J) =TINT 
XMDOT (J) =0 .DO 
EBW ( J ) =EBWINT 
IF (METHOD . EQ . 3 ) THEN 
DO  102  Ll=l , ISLAB 
CFOLD ( J , LI ) =RHOW*EBW ( J ) /EDS 
CFNEW ( J, LI ) =RHOW*EBW ( J) /EDS 
102  CONTINUE 
END  IF 

EGAM ( J) =1 .D0-EDS-EBW ( J) 

PV(J) =PVINT 
RHOV  ( J )  =RHOVINT 
PA ( J) =PATM-PV ( J) 

RHOAIR (J) =PA(J) *XMA/ (RGAS*T(J) ) 

PSAT(J) =614 .3D0*DEXP (17 . 06D0* ( (T(J) 

1-273 .15D0) / (T(J) -40.25D0) ) ) 

IF ( J . EQ . 1 . ) THEN 
T ( J) =TBNDB 
PV ( J) =PVBNDB 
RHOV ( J ) =RHOVBNDB 
PA ( J ) =PABNDB 
RHOAIR ( J) =RHOABNDB 
PSAT ( J ) =PSATBB 
END  IF 

IF (J.EQ.M1)  THEN 
T ( J) =TBNDT 
PV ( J) =PVBNDT 
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RHOV ( J) =RHOVBNDT 
PA ( J ) =PABNDT 
RHOAIR ( J ) =RHOABNDT 
PSAT ( J) =PSATBT 
END  IF 

100  CONTINUE 
LPRINT ( 5 )  = . TRUE . 

LPRINT ( 6 ) = . TRUE . 

LPRINT (7 )=. TRUE. 

LPRINT (8) =.TRUE. 

DO  101  J=1,M1 
DO  101  NF=1,NFD 
FOLD ( J,NF) =F (J,NF) 

101  CONTINUE 

C*****CALCULATE  INITIAL  WEIGHT  (MASS/SQ.  METER) 

WEIGHTI=0 . 0D0 
DO  103  J=2,M2 

RHOAVG=RHOW*EBW ( J) +RHODS*EDS+ 

1 (RHOV ( J) + RHOAIR ( J) ) *EGAM ( J) 

VOLUME=YCV ( J) 

WEIGHTI =WEIGHTI +VOLUME*RHOAVG 
103  CONTINUE 

C*****reCOrd  run  variables 

open (10, access=' append' , f ile=datafile) 
write ( 10, *) "dt,eps (5) ,eps (6) ,rel (5) ,rel (6) * 
wr  ite ( 1 0 , 19  0 ) marker , dt , eps ( 5 ) , eps ( 6 ) , relax ( 5 ) , 
lrelax(6) 

write (10,*) "Ml , LSCHEME , METHOD , JLAST, LAST" 

write (10 , 19 1 ) marker , Ml, lscheme, method, j last , last 

write (10,*) "Thickness , Rf , aL , DSOLID , WEIGHTI , EBWINT" 

write (10 , 189) marker , YL,RF,aL,dsolid, weighti, ebwint 

write(10, *) "rhint,rhbndt,rhbndb,tint,tbndb" 

wr i t  e ( 1 0 , 190) marker , rhint , rhbndt , rhbndb , t int , tbndb 

write(10, *) "time, t,rhov,ebw,xmdot, weight, %  change" 

write(10, *) "//nc" 

close(10) 

189  format (a4 , 6el2 . 4) 

190  format (a4,5el2. 4) 

191  format (a4 , 5il0) 

RETURN 

c*******  *****************  **************************** 

C 

ENTRY  UNSTDY 
C*****F0LD=FNEW 

IF  (IBUG)  PRINT  *,  "ENTRY  UNSTEADY" 

DO  200  J=1 ,M1 
DO  200  NF=1 , NFD 
FOLD ( J,NF) =F (J,NF) 

200  CONTINUE 

IF (METHOD . EQ . 3 ) THEN 
DO  201  J=1 ,M1 
DO  201  Jl=l , ISLAB 
CFNEW ( J, Jl) =CFOLD ( J, Jl) 
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o  o 


201  CONTINUE 
END  IF 
RETURN 

c***************************************************** 

C 

ENTRY  DENSE 

IF  (IBUG)  WRITE  (*,*)  "ENTRY  DENSE" 

if (ibug)print  *,nf 

CALL  THERMO 

CALL  SOURCE 

RETURN 

c******************************************************* 

c 

ENTRY  BOUND 

IF (IBUG) print  *,  'entry  bound' 

RETURN 

C******************************************************** 

c 

ENTRY  OUTPUT 

if (ibug) print  *,  'ENTRY  OUTPUT' 
if (ibug) print  *,nf 
ncent= (Ml/2) +1 
RETURN 

ENTRY  OUTPUT2 
RETURN 

ENTRY  OUTPUT3 
RETURN 

********************************************************* 


ENTRY  GAMS OR 

IF  (IBUG)  print  *,  'entry  gamsor' 
if (ibug)print  *,nf 

GO  TO  (699,699,699,699,610,600)  NF 
GO  TO  699 

C*****energy  equation,  nf=6 

600  CONTINUE 

C*****Call  ERHO  to  get  GAM  and  RHO 
CALL  ERHO 
DO  601  J=2 ,M2 

DHVAP= (2 .792D+6) -160 .DO* t (j)-3 .43D0 
l*t(j)*t(j) 
rhumid=pv ( j ) /psat ( j ) 

QL= (1 .95D+5) * (1 .D0-rhumid) 

1* ( (1.D0/ (0 .2D0+ (rhumid) ) ) + 

1(1. DO/ (1.05D0- (rhumid) ) ) ) 

C*****ALL  SOURCE  TERMS  LUMPED  INTO  CON(J)  (LAZY  WAY) 
CON ( J) =- (DHVAP+QL) *XMDOT(J) 

AP ( J) =0 -DO 

601  CONTINUE 
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c*****CREATE  CONVECTIVE  BOUNDARY  CONDITIONS 
GDYM=GAM ( 1 ) / YDIF ( 2 ) 

GDYP=GAM (Ml ) /YDIF  (Ml ) 

AREAM=1 . ODO/ ( (1 . 0D0/CHTC+1 . ODO/GDYM) *YCV(2)  ) 

AREAP=1 . 0D0/ ( (1 . 0D0/CHTC+1 . ODO/GDYP) *YCV(M2) ) 

GAM (1) =0 . ODO 

GAM (Ml ) =0 . ODO 

CON (2 ) =CON (2 ) +AREAM*TBNDB 

AP (2 ) =AP (2 ) -AREAM 

CON (M2 ) =CON (M2 ) +AREAP*TBNDT 

AP (M2 ) =AP (M2 ) -AREAP 

GO  TO  699 

C  *  *  *  *  *  CALCULATE  THERMODYNAMIC  PROPERTIES  AND  XMDOT 
610  CONTINUE 


DO  611  J=1,M1 

C*****DENSITY  TERM  FOR  MASS  DIFFUSION  EQUATION 
RHO ( J) =fold ( j ,9) 
c  rho ( j ) =ebw ( j ) 

C*****DIFFUSI0N  COEFFICIENTS  AND  SOURCE  TERMS 
DAIR= (2 .20D-5) * ( (t ( j ) /273 . 15D0) **1.75D0) 

DEFF=DAIR*f old ( j , 9 ) /TAU 
DEFF=DAIR*egam (j ) /TAU 
GAM( J) =DEFF 

xsource=xmdot ( j ) -rhov( j ) * (egam ( j ) -fold ( j  ,  9) )  /dt 
c  xsource=xmdot ( j ) -fold( j , 5) * (egam( j ) -fold ( j , 9) ) /dt 

if (xsource . It . 0 . ) then 
con ( j ) =0 .DO 
ap ( j ) =xsource/rhov ( j ) 
end  if 

if (xsource . ge . 0 . ) then 
con( j ) =xsource 
ap ( j ) =0 .DO 
end  if 

611  CONTINUE 

C*****CREATE  CONVECTIVE  BOUNDARY  CONDITIONS 
GDYM=GAM ( 1 ) /YDIF ( 2 ) 

GDYP=GAM (Ml ) /YDIF (Ml ) 

AREAM=1.0D0/( (1 . 0D0/CMTC+1 . ODO/GDYM) *YCV(2 ) ) 

AREAP=1 . 0D0/ ( ( 1 . 0D0/CMTC+1 . ODO/GDYP) *YCV  (M2 ) ) 

GAM(l) =0 . ODO 
GAM (Ml) =0 . ODO 

CON ( 2 ) =CON ( 2 ) +AREAM*RHOVBNDB 
AP (2 ) =AP (2 ) -AREAM 
CON (M2 ) =CON (M2 ) + ARE AP *RHOVBNDT 
AP (M2 ) =AP (M2 ) -AREAP 
699  RETURN 

C* ********************************************************** 
C 

ENTRY  SAVE1 


193 


RETURN 


q********************************************************* 

c 

ENTRY  OUTTOO 
LPRINT ( 5 ) = . TRUE . 

LPRINT ( 6 ) = . TRUE . 

if (time.gt .30. )nprint=200 

if  (iwrite.eq.nprint)then 

ncent= (Ml/2) +1 

if (iter .eq. l)weightg=0 . 

pctchng=weightg/weighti 

open(10,access='append' , f ile=dataf ile) 

tl=t (2) -tint 

t2=t (ncent) -tint 

reffk=yl/tkeffl 

write ( * , 813 ) time , tl , t2 , rhov (ncent ) , 
lebw (ncent) ,xmdot (ncent) , weight 
write (10,811) time , tl , t2 , rhov (ncent) , 
lebw (ncent) ,xmdot (ncent) , weight , pctchng 
close (10) 

c  do  810  j=l ,M1 

c  rhumid=pv ( j ) /psat ( j ) 

c  write (*, 812) t ( j ) ,ebw(j) ,xmdot(j) ,rhov(j) ,rhumid 

c  810  continue 
iwrite=0 
endif 

iwrite=iwrite+l 

811  format (lelO .4 , Ix,f6.2,lx,f6.2,5el0.3) 

813  format (lelO .4, lx, f 6 .2, lx, f 6 .2 , 4ell .4) 

812  format  (5ell.4) 

RETURN 


£********************************************************* 

c 

ENTRY  SAVE PC 
RETURN 


C************ ********************************** *********** 

c 

ENTRY  SAVE2 
RETURN 

ENTRY  PROPERTY 

if (ibug) print  *, 'entry  property' 
open(unit=10,file='fabric.prp' ) 

C*****FABRIC  PROPERTIES 
C*****THICKNESS  OF  ONE  FABRIC  LAYER 
THICK1=6 . 43D-4 
read (10,531) thickl 
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C*****THESIS  EXPERIMENTS  used  two  fabric  layers 
THICK=2 . *THICK1 

C*****V0LUME  FRACTION  OF  DRY  SOLID 
EDS=0 .381D0 
read (10,531) eds 

C*****S0LID  PHASE  DIFFUSION  COEFFICIENT  OF  WATER 
DSOLID=4 .D-13 
read (10 , 531) dsolid 
DDRY=4 .D-14 
DWET=4 . D-10 

c*****EFFECTIVE  FIber  DIAMETER  (m) 
aL=4.D-6 
read (10, 531) aL 
aL2=l . 5D-5 

C*****MASS  FRACTION  OF  WATER  TO  DRY  SOLID  AT  65%  r.h. 

RF=0 . 15D0 
read (10, 531) rf 
c*****T0RTU0SITy 
TAU=2 . 3  5D0 
read(10,531)tau 

C*****S0LID  POLYMER  DRY  DENSITY  (KG/M~3) 

RHODS=1300 . 
read (10,531) rhods 

C*****THERMAL  CONDUCTIVITIES  OF  DRY  POLYMER  (J/s-m-K) 

TKDS=0 . 20D0 
read (10,531) tkds 

C*****HEAT  CAPACITY  OF  DRY  POLYMER  (J/kg-K) 

CPDS=1360 .DO 
read (10 , 531) cpds 
close (10) 

531  format (el5 . 5) 
c*****PR0BLEM  CONSTANTS 

c*****C0NVECTIVE  HEAT  TRANSFER  COEFFICIENTS  AT  BOUNDARIES 
c*****  (visually  at  21.8  for  DMPC  simulations) 

CHTC=2 1 . 8D0 

C*****C0NVECTIVE  MASS  TRANSFER  COEFFICIENTS  AT  BOUNDARIES 
c***** (measured  from  apparent  boundary  layer  resistance  in  DMPC) 
c*****usually  at  0.021  m/s 
CMTC= . 02 1D0 

c*****DENSITy  0F  LIQUID  WATER 
RHOW=1000 .DO 

C*****THERMAL  CONDUCTIVITIES  OF  LIQUID  WATER,  WATER  VAPOR,  AND  AIR 
TKW=0 . 6D0 
TKV=0 . 0246D0 
TKA=0 . 02563D0 

C*****HEAT  CAPACITIES  OF  LIQUID  WATER,  WATER  VAPOR,  AND  AIR 
CPW=4182 .DO 
CPV=1862 .DO 
CPA=1003 .DO 

c  *  *  *  *  *T0TAL  GAS  PRESSURE  (ATMOSPHERIC) 

PATM=101325 . DO 

c  *  *  *  * ‘UNIVERSAL  GAS  CONSTANT 
RGAS=83 14 . 5D0 
C*****MOLECULAR  WEIGHTS 
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XMW=18 . 015D0 
XMA=28 . 97D0 

RETURN 

ENTRY  THERMO 

if (ibug)print  *, 'entry  thermo' 

DO  1021  J=1 ,M1 

PSAT ( J) =614 . 3D0*DEXP (17 . 06D0* ( (T(J) -273.15D0) / 
1 (T(J) -40.25D0) ) ) 

PV(J) =RHOV ( J) *RGAS*T ( J) /XMW 
PA(J) =PATM-PV (J) 

RHOAIR ( J) =PA ( J) *XMA/ (RGAS*T(J) ) 

1021  CONTINUE 
RETURN 

ENTRY  SOURCE 

if (ibug)print  *, 'entry  source' 

DO  1029  J=2 , M2 
RHUMID=PV (J) / PSAT ( J ) 

EBW ( J) = ( . 578DO*RF*EDS*RHODS/RHOW) *RHUMID* 

1 (1 .DO/ ( .321D0+RHUMID) +1 . DO/ (1 . 262D0-RHUMID) ) 
XMDOT ( J) = (FOLD (J, 7 ) -EBW (J) ) *RHOW/DT 
1029  CONTINUE 

C*****QO  TO  PROPER  MASS  SOURCE  CALCULATION  METHOD 
GOTO (1025, 1030, 1035, 1030, 1030, 1030)METHOD 

C*****EQUILIBRIUM  METHOD-SOURCE  TERM  DOMINANT 

1025  DO  1026  J=2 ,M2 
XFRAC=0 . 6 

IF (XMDOT (J) . LT . 0 . ) THEN 
c  PHILIM=1 .D-150 

c  PHILIM= (1 .D-200) + (RHOV ( J) ) * (1 . -XFRAC) 

C  CON (J)= (XMDOT (J) *PHILIM) / (PHILIM-RHOV (J) ) 

C  AP(J)=-XMDOT(J)/ (PHILIM-RHOV (J) ) 

c  CON ( J) =0 . 

C  AP ( J) =XMDOT ( J) /RHOV ( J) 

END  IF 

IF (XMDOT ( J) . GE . 0 . ) THEN 
C  RHOVSAT= (PSAT ( J) *XMW) / (RGAS*T ( J) ) 

c  PHILIM=RHOVSAT 

c  PHIL IM=RHOV ( J) + ( RHOV SAT - RHOV ( J) ) *XFRAC 

c  CON (J)= (XMDOT (J) *PHILIM) / (PHILIM-RHOV ( J) ) 

C  AP(J)=-XMDOT(J)/ (PHILIM-RHOV (J) ) 

c  CON ( J) =XMDOT ( J) 

C  AP ( J) =0 . 

END  IF 

c  EBW ( J) =FOLD ( J, 7) -XMDOT ( J) *DT/RHOW 

EGAM ( J) =1 . -EDS -EBW ( J) 

1026  CONTINUE 
GOTO  1050 

c*****SOLID  DIFFUSION  METHOD,  SEMI-INFINITE  SOLID 
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1030  DO  1031  J=2 ,M2 
CSKIN=RHOW*EBW(J) / (EBW(J) +EDS) 
CINSIDE=RHOW*FOLD(J,7) / (FOLD ( J, 7 ) +EDS) 

PI=3 . 141592654D0 

XMDOT (J) = (CINSIDE-CSKIN) *DSQRT (DSOLID/ (DT*PI) ) 

IF (METHOD . EQ . 4 ) THEN 

REQ=EBW (J) *EDS*RHODS/RHOW 

RINST=FOLD ( J, 7 ) *EDS*RHODS/RHOW 

XMDOT(J) =DSOLID*RHODS* (RINST-REQ) / (aL*aL) 

END  IF 

IF (METHOD . EQ . 5 ) THEN 
REQ=EBW ( J) * EDS  * RHOD S / RHOW 
RINST=FOLD ( J, 7 ) *EDS*RHODS/RHOW 
DSEFF=DDRY+ (DWET-DDRY) *EBW(J) /EBWSAT 
XMDOT(J) =DSEFF  *  RHODS  * (RINST-REQ) / (aL2*aL2) 

END  IF 

IF (METHOD . EQ . 6 ) THEN 
REQ=EBW ( J) * EDS *RHODS /RHOW 
RINST=FOLD(J,7) *EDS*RHODS/RHOW 
XMDOT(J) =DSOLID*RHODS* (RINST-REQ) 

END  IF 

C  XMDOT ( J) = (1 . -RHOV ( J ) /RHOW) *XMDOT( J) 

C  IF (XMDOT ( J) .LT.O.)  THEN 

C  CON (J) =0 .DO 

c  AP ( J) =XMDOT ( J) /RHOV ( J) 

c  END  IF 

C  IF (XMDOT ( J) -GE.0. ) THEN 

c  CON ( J) =XMDOT ( J) 

C  AP ( J) =0 . 0D0 

c  END  IF 

EBW ( J) =FOLD ( J , 7 ) -XMDOT ( J) *DT/RHOW 
EGAM ( J ) = 1 . DO -EDS -EBW ( J ) 

1031  CONTINUE 
GOTO  1050 

C*****SOLID  DIFFUSION  METHOD,  FINITE  SLAB 
1035  DO  1036  J=2,M2 

CSKIN=RHOW*EBW ( J) /EDS 

C*****define  the  problem  constants  (thickness) 
sl=l. 

c*****parameters  from  MAIN 
aL=eds*ycv( j ) 

c*****inpUt  time  and  space  step  intervals 
tfd=dt 

tf=tfd*dsolid/ (aL*aL) 

il=islab 

nslab=il-l 

kcenter= ( (il-1) /2) +1 
xlambda=l . 

c*****set  the  initial  conditions 
c*****cf  is  nondimens ional  fiber  concentration 
do  1037  i=l, il 
alpha (i)=l. 

cf2 (i) = (cfold(j , i) -cfold( j ,kcenter) ) / 
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1 (cskin-cfold (j ,kcenter) +1.D-100) 
cfol2 (i) = (cf old ( j ,  i) -cf old ( j , kcenter) ) / 

1 (cskin-cfold (j , kcenter) +1.D-100) 

1037  continue 
cfbnd=l . 

c*****now  compute  the  important  parameters 
nml=nslab-l 
nm2=ns lab-2 
times=0 . 
dxs=sl/nslab 
dts=xlambda*dxs*dxs/2 . 
tfl0=tf/10. 

if (dts .ge. tflO)dts=tf /10 . 
c***** implement  boundary  conditions 
call  tbcond(cf2, il,cfbnd) 

c***** increment  the  iteration  counters  and  check  for  the  maximum  limit 

1044  times=times+dts 
tfend=tf 

if (times .gt .tfend) goto  1045 
do  1038  1=1,11 

c*****paraitieters  jn  the  finite  difference  equations 
greekx=dts/  (2 .  *dxs*dxs) 

1038  continue 

implement  boundary  conditions 
call  tbcond(cf2, il,cfbnd) 
c*****PATANKAR,S  EXPONENTIAL  SOLUTION 
c*****form  the  tridiagonal  system  of  equations 

call  fmtpat (alpha, il,cfol2, ta2, tb2, tc2, trr2) 
nt=il-2 

c*****invert  the  tridiagonal  system  of  equations 
call  tdig2 (ta2, tb2, tc2,trr2, tsoln2,nt) 
c*****save  the  old  solution 
do  1039  i=2 , il-1 
cf2 (i) =tsoln2 (i) 

1039  continue 

do  1040  i=l, il 
cfol2 (i) =cf2  (i) 

1040  continue 

impose  the  boundary  condition 
call  tbcond(cf2,il,cfbnd) 
xdim=0 . 

do  1041  i=l, il 

dxdim=dxs*aL 

tdim=aL*aL*times/dsolid 

cfdim(i) =cf2 (i) * (cskin-cfold (j ,kcenter) ) 

1+cf old ( j , kcenter ) 
cfnew( j , i) =cfdim(i) 
xdim=xdim+dxdim 

1041  continue 
go  to  1044 

c**** integrate  concentration  to  get  total  mass 
c*****use  Trap.  Rule 

1045  totnew=0 . 
totold=0 . 
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nslabl=nslab-l 
do  1046  i=2,nslabl 

totold=totold+ ( (cfold ( j , i) +cfold ( j , i+1) )  12.)  *dxdim 
totnew=totnew+  ( (cfnew( j  ,,i)  +cfnew ( j  ,  i+1) )  12.)  *dxdim 
1046  continue 

totnew=totnew+dxdim* (cfnew( j , 2) +cfnew( j ,nslabl) ) 
totold=totold+dxdim* (cfold(j ,2)+cfold(j ,nslabl) ) 
totold2=rhow*fold ( j ,7) *ycv( j ) 
ebw ( j ) =totnew/ (rhow*ycv ( j ) ) 

ebdif fl= (fold( j , 7 ) -ebw( j ) ) / (fold ( j ,7) +1.D-100) 
ebdif f=dabs (fold ( j ,7) -ebw( j ) ) / (fold( j ,7) +1 .D-100) 
eblim=l. 

if (ebdif f .gt .eblim) then 

ebw ( j ) =f old ( j , 7) - (ebdif fl/ebdiff ) *eblim*f old ( j , 7 ) 
end  if 

xmdot  ( j )  =  (totold-totnew)  /  (ycv  ( j )  *dt) 

XMDOT ( J) = (FOLD ( J, 7 ) -EBW ( J) ) *RHOW/DT 
XMDOT (J)=(l.-RHOV(J) /RHOW) *XMDOT(J) 

IF (XMDOT (J) .LT.O.)  THEN 
CON ( J) =0 . 

AP ( J) =XMDOT ( J) /RHOV(J) 

END  IF 

IF (XMDOT (J) . GE . 0 . ) THEN 
CON ( J) =XMDOT ( J) 

AP ( J) =0 . 0 
END  IF 

EBW ( J) =FOLD ( J, 7 ) -XMDOT ( J) *DT/RHOW 
EGAM ( J) =1 . -EDS-EBW ( J) 

1036  CONTINUE 

1050  RETURN 

ENTRY  ERHO 
WEIGHT=0 . 0 
DO  1231  J=1,M1 

c*****DENSITy  and  HEAT  CAPACITY  FOR  ENERGY  EQUATION 
RHOAVG=RHOW* fold ( j , 7 ) +RHODS*EDS+ 
l(fold(j, 5)+fold(j,10) ) *fold ( j ,9) 

CPAVG= (RHOW* f old (j , 7 ) *CPW+RHODS*EDS*CPDS+ 

1 (fold (j , 5) *CPV+fold ( j , 10) *CPA) *fold( j , 9) ) /RHOAVG 
RHO ( J) =RHOAVG*CPAVG 

c  *  *  *  *  * CALCULATE  CURRENT  WEIGHT  (MASS/SQ.  METER) 

C*****AND  WEIGHT  GAIN  OR  LOSS  FROM  INITIAL  CONDITION 
VOLUME=YCV ( J) 

WEIGHT=WEIGHT+VOLUME*RHOAVG 

WEIGHTG=WEIGHT-WEIGHTI 

C*****DIFFUSI0N  COEFFICIENTS  AND  SOURCE  TERMS 
TKF= ( (TKW*RHOW*ebw( j ) +TKDS*RHODS*EDS) 

1/ (RHOW*ebw( j ) +RHODS*EDS) ) 

TKG= ( (TKV*rhov( j ) +TKA*rhoair ( j ) ) / 

1 (rhov( j ) +rhoair ( j ) ) ) 

VF=EDS+ebw( j ) 

TKPERP=TKF*TKG/ (VF*TKG+ (1 .D0-VF) *TKF) 

TKPRLL= ( 1 . DO -VF ) *TKG+VF*TKF 
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W0MEGA=1 . DO 

TKEFF = WOMEGA  *  TKPRLL  + ( 1 . ODO-WOMEGA) *TKPERP 
c*****Cylinder  Model 

C  TKEFF=TKG* ( (TKF* (1 .DO+VF) +TKG* (1 . DO-VF) )/ 

c  1 (TKF* (1. DO-VF) +TKG*(1.+VFD0) ) ) 

GAM ( J ) =TKEFF 
ncent= (Ml/2) +1 
if (j .eq.ncent)tkeffl=tkeff 
1231  CONTINUE 

RETURN 

c********************************************************* 


END 

subroutine  tbcond(tc, il,cfbnd) 

c*****this  subroutine  implements  the  cone,  boundary  conditions 
implicit  double  precision  (a-h,o-z) 
dimension  tc(101) 

c*****C0NSTANT  cone.  BOUNDARY  CONDITIONS 
c*****left  boundary 
tc (1) =cfbnd 
c*****right  boundary 
tc (il) =cfbnd 
return 
end 

subroutine  tdig2 (a2,b2,c2,r2,soln2,n) 
c*****this  subroutine  inverts  a  tridiagonal  matrix  by  the  thomas  algorithm 
implicit  double  precision  (a-h,o-z) 

dimension  a2 (101) ,b2 (101) fc2 (101) ,r2 (101) # soln2 (101) ,bn2 (101) 
do  10  i=l,n 
bn2  ( i )  =b2  (i) 

10  continue 
do  21  i=2,n 
d=a2 (i) /bn2 ( i— 1 ) 
bn2 ( i ) =bn2 (i) -c2 (i-1) *d 
r2 ( i ) =r 2 (i)-r2 (i-l)*d 
21  continue 

soln2  (n+1)  =r2  (n)  /bn2  (n) 

do  30  i=l,n-l 

j-n-i 

soln2  ( j+1) =  (r2  (j)-c2  (j)  *soln2  (j+2) ) /bn2  (j) 

30  continue 
return 
end 

subroutine  fmtpat (alphaa2 , il , fold2 , a2 ,b2 , c2 , r2 ) 
implicit  double  precision  (a-h,o-z) 
common  /phil/  dxs,dts 

dimension  fold2(101) ,r2(101) #a2(101) ,b2 (101) ,c2 (101) 
dimension  ae2 (101) ,aw2 (101) ,ap2 (101) , fp2 (101) #alphaa2 (101) 
call  coeff2 (alphaa2, il,aw2/ae2/ap2) 
call  fpat (il/ap2/ fp2) 
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do  10  i=2 , il-1 

a2 (i-1) =-aw2 (i) *fp2 (i-1) *dts 
c2 (i-1) =-ae2 (i) *fp2 (i+1) *dts 
10  continue 

do  22  i=2,il-l 

b2 (i-1) =l.+fp2 (i) *ap2 (i) *dts 
zl2= (aw2 (i) * ( (1 . -fp2 (i-1) )*dts) )*fold2(i-l) 
z22=(l.-( (l.-fp2 (i) )*ap2 (i)*dts) ) *fold2(i) 
z32= (ae2 (i) * ( (1 . -fp2 (i+1) ) *dts) ) *fold2 (i+1) 
r2 (i-1) =zl2+z22+z32 

C*****inC0rp0rate  the  appropriate  boundary  conditions 
if (i.eq.2)r2 (i-1) =r2 (i-1) -a2 (i-1) *fold2 (i-1) 
if (i.eq.il-l)r2 (i-1) =r2 (i-1) -c2 (i-l)*fold2 (i+1) 

22  continue 
return 
end 

subroutine  coeff2 (alpha2, il,aw2a,ae2a,ap2a) 
implicit  double  precision  (a-h,o-z) 
common  /phil/  dxs,dts 

dimension  alpha2 (101) ,aw2a(101) ,ae2a(101) #ap2a(101) 

zeta=dxs*dxs 

do  22  i=2fil-l 

aw2a(i) = ( (2 . *alpha2 (i) *alpha2 (i-1) ) / (alpha2 (i) +alpha2 (i-1) ) ) /zeta 
ae2a(i)=( (2.*alpha2 (i) *alpha2 (i+1) ) / (alpha2 (i) +alpha2 (i+1) ) )/zeta 
ap2a ( i ) =aw2a ( i ) +ae2a ( i ) 

22  continue 
return 
end 

subroutine  fpat (il ,ap2aa, fp2a) 
implicit  double  precision  (a-h,o-z) 
common  /phil/  dxs,dts 
dimension  fp2a (101) rap2aa (101) 
do  22  i=2 , il-1 
xlmbdap=ap2aa (i) *dts 

if (xlmbdap.ge. 0 . .and.xlmbdap . It . 10 . ) then 

fp2a (i) =1 . - (1 . /xlmbdap) * (1 . - ( (1 . - (0 . l*xlmbdap) )**5.) ) 

end  if 

if (xlmbdap.ge. 10 . ) fp2a(i) = (1 . - (1 . /xlmbdap) ) 

22  continue 
return 
end 


201 


202 


Appendix  C 


Two-Dimensional  Numerical  Code 
to  Solve  Transient  and  Steady-State 
Coupled  Diffusion/Convection  Problem 
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User  Program  —  DIFFCON.F 


c*****DECEMBER  1995 

SUBROUTINE  diffcon 

c*****Diffusion/Convection  in  the  DMPC 
C******THIS  IS  USER  ROUTINE  FOR  SIMPLEC 
c*****this  routine  includes  the  sample  holder  step 
C*****This  is  flow  simulation  for  DMPC  cell 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

c* ********************************************************* 

CHARACTER  TITLE* 18 
CHARACTER  DATAFILE1 *60 
CHARACTER  DATAFILE2  *60 
character  datafile3*60 
character  datafile4*60 
character  datafile5*60 
character  header*64 

LOGICAL  LSOLVE , LPRINT, LBLK , LSTOP , LSTEADY , IBUG 
PARAMETER  ( ID=3  0  0 , JD=3  0  0 , NFD=2 0 , NFP3  =2  3 , MI J=3  0  0 ) 

COMMON  F (ID, JD,NFD) ,RHO(ID, JD) , GAM(ID, JD) ,CON(ID, JD) , 

1  AIP(ID, JD) ,AIM(ID, JD) ,AJP(ID, JD) ,AJM(ID, JD) ,AP(ID, JD) , 

2  X(ID) , XU ( ID) ,XDIF (ID) (XCV(ID) ,XCVS(ID) , 

3  Y ( JD) , YV ( JD) , YDIF ( JD) , YCV ( JD) , YCVS ( JD) , rhol (id, jd) , 

4  YCVR(JD) , YCVRS ( JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R ( JD) , RMN ( JD ) , SX ( JD) , SXMN (JD) ,XCVI (ID) ,XCVIP(ID) 

COMMON  DU  (ID,  JD)  ,DV(ID,  JD)  ,FV(JD)  ,FVP(JD)  , 

1  FX (ID)  , FXM (ID)  , FY ( JD)  , FYM(JD)  ,PT(MIJ)  ,QT(MIJ) 

COMMON/ INDX/NF ,  NFMIN,  NFMAX ,  NP ,  NRHO ,  NGAM,  LI ,  L2  ,  L3  , Ml , M2  ,  M3  , 

1IST, JST, ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3) , TIME , DT , XL , YL , 
2IPREF, JPREF, LSOLVE  (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , MODE , 

3NTIMES (NFP3 ) , RHOCON 
COMMON/CNTL/LSTOP ,  LSTEADY ,  LSCHEME 
COMMON/ SORC / SMAX , S  SUM 
COMMON/ COEF / FLOW , DIFF, ACOF 

COMMON/UNSTEDY/FOLD (ID, JD, NFD) ,FNEW(ID,JD) , JLAST , 

1  IFLAG(NFD) , EPS (NFD) , DIFMAX, JFLAG, deltat 
COMMON/EXPNT/ ALAMBDA ( ID , JD ) , FP ( ID , JD ) 

COMMON/DEBUG/ IBUG 

COMMON/ OTHER/GAM5  (ID, JD) ,RH05(ID,JD) ,GAM6(ID,JD) ,RH06(ID,JD) 
DIMENSION  U(ID, JD) ,V(ID, JD) ,PC(ID, JD) ,P(ID, JD) 

EQUIVALENCE (F(l, 1,1) ,U (1, 1) ) , (F (1, 1 , 2 ) , V(1 , 1) ) , (F (1 , 1 , 3 ) , PC (1, 1) ) 
EQUIVALENCE (F (1,1, 4) ,P(1,1) ) 

c************************************************** 

C 

Q*****UUS«rE^DY  DIFFUSION  PROBLEM**************************** 

COMMON/ PRO P S / RF , TAU , RHODS , RHOW , TKDS , TKW , TKV , TKA , 

1CPDS ,  CPW,  CPV,  CPA,  PATM,  RGAS,XMW,  XMA,  CHTC,  CMTC,  dsolid, 
lmethod , epsrhov, iwr  i te , npr int , aL , aL2 , ddry , dwet , dhvap , 
lql , header, tkss , cpss , rhoss , edss , edsa , edsh,  amu , amus , xmn2 , 
lykdarc , xkdarc , deltap , pinch, f acttop , f actbot , rddry , rdwet , 
lthick,rfl 
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common/dataf le/dataf ilel , dataf ile2 , dataf ile3 , dataf ile4 , 
ldatafile5 

COMMON/ BNDRY/ PS ATB , RHBND , TBND , PVBND , RHOVBND , PABND , RHOABND 
1 , psatbb , psatbt , rhbndb , rhbndt , tbndb , t int , ebwint , ebwsat , 
ltbndt , pvbndb , pvbndt , rhovbndb , rhovbndt , pabndb , pabndt , 
lrhoabndb, rhoabndt , weighti , weight , rhint , tintt , tintb 
COMMON/ DUCT /RHOA, DUCTH, DUCTA, DUCTW, RHON2 , VNOM , 
ldn2 , def  f , rhovtop , rhovbot , rhoat , rhoab , isbeg , is end , 

1 j  sbeg , j  send , j  hlbeg , j  hlend , j  hubeg , j  huend , vnomt , vnomb , 
lxmassti , xmassbi , xmassto,xmassbo, xtotin, xtotout , xmasssi , 
lxmassso , xsample , y sample , xqn2mks , dess i , detopi , debot i , 
ldcboto, dctopo,xqst,xqsb, icent, jeent, convcte, ihend 
1 , ltype , ivalvbeg , ivalvend, j valvbeg , j valvend 
common/ vapor /xmvt ,  xmvb,  xmn2t ,  xmn2b, xmn2out ,  xmvout ,  rhbo 
common/solid/kplot (nfp3) , isolid (id, jd) , tplot 
DIMENSION  T(ID, JD) ,RHOV(ID, JD) ,EBW(ID, JD) , XMDOT ( ID, JD) , 
1EGAM(ID, JD) , RHOAIR(ID, JD) ,PV(ID, JD) ,PA(ID, JD) ,PSAT(ID, JD) , 
1EDS(ID, JD) , TKEFF ( ID, JD) , RHUMIDA ( ID, JD) , vapmf (id, jd) 

1 ,xsolid (id, jd) , dif fg (id, jd) , rkdarcy (id, jd) 

EQUIVALENCE (F ( 1 , 1 , 5 ) , vapmf (1,1) ) , (F(l,l,6) ,T(1,1) ) , 

1(F (1,1,7) , EBW (1,1) ) , (F(l, 1, 8) , XMDOT (1,1) ) , 

1 (F(l, 1,9) , EGAM (1,1) ) , (F (1,1, 10) ,RHOAIR(l,l) ) , 

1  (F  (1 , 1,11) ,PV(1, 1) ) ,  (F (1 , 1,12) , PA (1, 1) ) , 

1  (F  (1 , 1 , 13 )  ,  PSAT (1 , 1) ) , (F (1,1, 14) , EDS (1,1) ) ,  (F  (1,1, 15)  , 

1 TKEFF (1,1)), (F (1,1,16) ,RHUMIDA(1, 1) ) , (f (1 , 1 , 17 ) , rhov (1 , 1) ) 
1, (F(l,l,18) ,xsolid(l,l) ) , (f (1,1, 19), dif fg (1,1)), (f (1,1,20), 
lrkdarcy (1, 1) ) 

DATA  TITLE (1)/7H  VEL  U/ 

DATA  TITLE (2) /7H  VEL  V/ 
data  title (3 ) /7H  Str.F./ 
data  title(4)/7H  Press./ 

DATA  TITLE (5) /7H  vapmf/ 

DATA  TITLE (6) /7H  TEMP/ 

DATA  TITLE (7 ) /7H  EBW/ 

DATA  TITLE (8) /7H  XMDOT/ 

DATA  TITLE (9 ) /7H  EGAM/ 

DATA  TITLE (10 )/7H  RHOAIR/ 

DATA  TITLE (11 )/7H  PVAP/ 

DATA  TITLE ( 12 )/7H  PAIR/ 

DATA  TITLE (13 )/7H  PSAT/ 

DATA  TITLE (14) /7H  EDS/ 

DATA  TITLE (15 )/7H  TKEFF/ 

DATA  TITLE (16) /7H  R.H. / 

DATA  TITLE ( 17 )/7H  rhov/ 

DATA  TITLE (18) /7H  xsolid/ 

DATA  TITLE (19) /7H  diffg/ 

DATA  TITLE (20) /7H  kdarcy/ 

DATA  TITLE (21) /7H  none/ 

DATA  TITLE (22 )/7H  none/ 

DATA  TITLE (23 )/7H  none/ 

DATA  IBUG/. false./ 
c  DATA  IBUG/ . true . / 

C* ************************* 

ENTRY  GRID 
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IF  ( IBUG)  PRINT  *,  "ENTRY  GRID" 

C*****DEFINE  material  PROPERTIES 
CALL  PROPERTY 

C*****define  grid  and  various  regions  of  geometry 
call  gridgen 
RETURN 

q*************************************************** 

c 

ENTRY  START 

IF  (IBUG)  PRINT  *,  "ENTRY  START" 

C*****input  the  data  file  names 
nprint=l 
iwrite=nprint 

C*****LSCHE^=l-exp0nential,2-implicit,3-Crank-Nicolson 
LSTEADY= . false . 

LSCHEME=2 
LSOLVE ( 1 ) = . TRUE . 

LSOLVE ( 2 )  = . TRUE . 

LSOLVE (3) =. TRUE. 

LSOLVE (4) =. TRUE. 

LSOLVE ( 5) =. TRUE. 

LSOLVE ( 6) =. true. 

c  print  *, 'input  relaxation  factor  for  velocities' 

c  read (* , *) relxx 

relxx= . 9 
relax ( 1 ) =relxx 
relax (2 ) =relxx 
relax (6) =. 1 
LAST=60 

c*****place  reference  pressure  at  outlet  of  cell 
ipref=ll 
jpref=l 

c*****INITIAL  CONDITIONS  FOR  GAS  FLOWS 

c*****initial  conditions  for  flow  on  top  and  bottom  of  cell 
C*****TEMPERATURES  (K) 

TINT=293 . 15D0 

TINTT=TINT 

TINTB=TINT 

C*****RELATTVE  HUMIDITIES 
RHTOPIN=0 . 99D0 
RHBOTIN=0 . 00D0 
rhint=0 . 

C*****SATURATI0N  VAPOR  PRESSURES 

PSATI=614 . 3D0*DEXP ( 17 . 06D0* ( (TINT-273 . 15D0 ) 

1/ (TINT-40. 25D0) ) ) 

PSATIT=614 . 3D0*DEXP (17 . 06D0* ( (TINTt-273 . 15D0) 

1/ (TINTt-40.25D0) ) ) 

PSATIB=614 .3D0*DEXP (17 . 06D0* ( (TINTb-273 . 15D0) 

1/ (TINTb-40 .25D0) ) ) 

C*****VAP0R  PRESSURES/ PARTIAL  VAPOR  PRESSURE  (PA) 
PVTOPIN=RHTOPIN*PSATIt 
PVBOTIN=RHBOTIN*PSATIb 
C*****VAP0R  CONCENTRATIONS  (KG/M^3) 

RHOVTOP=PVTOPIN*XMW/ (RGAS*TINTt) 
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RHOVBOT=PVBOTIN*XMW/  (RGAS*TINTb) 

C*****PARTIAL  PRESSURE  OF  INERT  GAS  (AIR  OR  NITROGEN)  (PA) 
P  ATO  P = P  ATM-  PVTO  PIN 
PABOT=PATM-PVBOTIN 

C*****INERT  GAS  CONCENTRATION  (KG/MA3) 

RHOAT=PATOP*XMA/  (RGAS*TINTt) 

RHOAB =PABOT*XMA/  (RGAS*TINTb) 

C*****T0TAL  MIXTURE  DENSITY 
RHO  TO  P = RHO AT + RHOVTO  P 
RHOBOT=RHOAB+ RHOVBOT 
C*****speCif iC  humidity  ratio 

spgamt= (pvtopin/patop) * (xmw/xma) 
spgamb=  (pvbotin/pabot )  *  (xmw/xma) 
c***** initial  conditions  for  the  sample 
rhl00=l .DO 

c*****Nominal  Entrance  Velocity  (m/s) 
c*****duct  width  (m) 

DUCTW= . 025 

c*****duct  area  (mA2) 

DUCTA=DUCTH * DUCTW 

c*****inCOming  dry  nitrogen  flow  (cm^3/min)  at  273  K 
CMFLOWt =2  000. 
cmf lowb-2000 . 

c  print  *, 'input  cmflowt' 

c  read  (*,*) cmflowt 

c  print  *, 'input  cmflowb' 

c  read  (*,*) cmflowb 

c*****density  of  nitrogen  at  0  deg  C 
RHON20=patm*xma/ (rgas*273 .15) 
xqst=cmf lowt* ((l./100.)**3)*(l./60.) 
xqsb=cmf lowb* ( ( 1 . /100 . ) **3 ) * ( 1 . /60 . ) 
c*****mass  flow  rates  of  nitrogen  (kg/s) 
xmn2 1  =xqs  t  *  RHON2  0 
xmn2b=xqsb*RHON2  0 
c  print  *,xmn2t,xmn2b 

c  print  *,xqst,xqsb 

C*****entering  mass  flow  of  water  vapor  (kg/s) 
xmvt=  (rhovtop/rhoat )  *xmn2t 
xmvb=  (rhovbot/rhoab)  *xmn2b 
c  print  * , ' rhovtop, rhovbot ' 

c  print  * , '  rhoat , rhoab ' 

c  print  * , ' xmvt , xmvb ' 

c  print  * , rhovtop , rhovbot 

c  print  *, rhoat , rhoab 

c  print  *, xmvt, xmvb 

c*****total  mass  flow  rates  (kg/s)  of  vapor  +  air  entering 
xmtott =xmn2 1 +xmvt 
xmtotb=xmn2b+xmvb 
c  print  *, 'xmtott ,xmtotb' 

c  print  *, xmtott, xmtotb 

c  *  *  *  *  *ENTERING  VELOCITIES 
C*****mdot=rho*V*A. . .  V=mdot/ (rho*A) 


207 


vnomt=xmtott/ (rhotop*ducta) 
vnomb=xmtotb/ (rhobot*ducta) 
c  print  *,rhon20 

c  print  *, 'vnom  bottom,  vnom  top' 

c  print  * , vnomb , vnomt 

C*****N0rmalize  all  mass  flows  by  width  of  duct 
xmt  o  t 1  =xmt  o 1 1 / due  t w 
xmtotb=xmtotb/ductw 
xmn2 t =xmn2 t / du c t w 
xmn2b=xmn2b/ductw 
xmvt  =xmvt / due t w 
xmvb=xmvb / due tw 
xqst=xqst/ductw 
xqsb=xqsb/ductw 

e*****0ption  to  start  off  at  atmospheric  pressure 
do  1236  i=l, 11 
do  1236  j=l,ml 
c  p ( i , j ) =patm 

1236  continue 

c  print  *,p (ipref , jpref ) 

C*****flow  in  bottom  portion  of  cell 
DO  100  1=1 , LI 
DO  100  J=l, jhlbeg-1 
t  (i, j ) =tintb 
xmdot (i, j ) =0.D0 
EBW (i , j ) =0 .DO 
EGAM ( i , j ) =1 - DO 
EDS (i , j ) =edsa 
pv ( i , j ) =pvbot in 
rhov ( i , j ) =rhovbot 
pa ( i , j ) =pabot 
rhoair ( i , j ) =rhoab 
psat ( i , j ) =psat ib 
rho ( i , j ) =rhov ( i , j ) +rhoair ( i , j ) 
vapmf ( i , j ) =rhov ( i , j ) /rho ( i , j ) 
c*  *  *  *  * velocities 

i f ( i . gt . 1 . and . j . gt . 1 ) then 
u ( i , j ) = vnomb 
u ( 2 , j ) = vnomb 

c*****option  to  use  parabolic  entrance  profile 
C  u (i , j ) =6 . * VNOMB  * ( - ( ( (y ( j ) **2 ) /DUCTH**2 ) )  +y  ( j ) /DUCTH) 

v(i, j)=0. 
u (i, 1) =0 . 
u (2 , 1) =0 . 
end  if 

100  CONTINUE 

C*****FLOW  IN  LOWER  CUT-OUT 
DO  101  I=isbeg, isend 
DO  101  J=jhlbeg, jhlend 
t (i, j ) =tintb 
xmdot (i, j)=0.D0 
EBW ( i , j ) =0 .DO 
EGAM ( i , j ) =1 . DO 
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EDS (i, j ) =edsa 
pv(i,  j ) =pvbotin 
rhov ( i #  j ) =rhovbot 
pa ( i , j ) =pabot 
rhoair ( i , j ) =rhoab 
psat ( i , j ) =psat ib 
rho ( i ,  j ) =rhov ( i , j ) +rhoair ( i ,  j  ) 
vapmf ( i ,  j ) =rhov ( i ,  j  ) /rho ( i , j ) 
c*** ★★velocities 

if (i.gt.l.and. j .gt .1) then 
u (i, j ) =0 .DO 
u(i+l, j)=0.d0 

C*****0pti0n  to  use  parabolic  entrance  profile 
c  U  (i ,  j  )  =6  .  *VNOMB*  (-  (  ( (y  ( j  )  **2)  /DUCTH* *2 )  )  +y  ( j  )  /DUCTH) 

v(i, j ) =0 . 
end  if 
101  CONTINUE 

c*****floW  in  top  portion  of  cell 
DO  105  1=1, LI 
DO  105  J=JHUEND+1,M1 
t (i, j)=tintt 
xmdot (i, j ) =0 .DO 
eds (i ,  j ) =edsa 
EBW(i, j ) =0 .DO 
EGAM  (i , j ) =1 .DO 
pv ( i , j ) =pvtopin 
rhov ( i , j ) =rhovtop 
pa (i , j ) =patop 
rhoair ( i , j ) =rhoat 
psat (i, j ) =psatit 
rho ( i , j ) =rhov ( i , j ) +rhoair ( i , j ) 
vapmf ( i , j ) =rhov ( i , j ) /rho ( i , j ) 
c  * ★ ★ ★ ★VEL0C ITIES 

i f ( i . gt . 1 . and . j . gt . 1 ) then 
u ( i , j ) =vnomt 
u(2, j)=vnomt 
u(i,ml) =0.d0 
u (2 ,ml) =0 .d0 

c*****0ption  to  use  parabolic  entrance  profile 
c  u(i,  j)=6.*VNOMT*  (-(  (  (y  ( j  )  **2)  /DUCTH*  *2)  ) +y  (j  ) /DUCTH) 

v(i, j ) =0. 
end  if 

105  CONTINUE 

C*****FLOW  IN  UPPER  CUT-OUT 
DO  106  I=isbeg, isend 
DO  106  J=jhubeg, jhuend 
t  (i,  j )  sstintt 
xmdot (i, j ) =0 .DO 
EBW(i, j ) =0 .DO 
EGAM (i , j ) =1 .DO 
EDS (i , j ) =edsa 
pv(i, j ) =pvtopin 
rhov ( i , j ) =rhovtop 
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pa{i, j)=patop 

rhoair ( i ,  j ) =rhoat 

psat (i , j ) =psatit 

rho ( i , j ) =rhov ( i , j ) + rhoair ( i , j ) 

vapmf ( i , j ) =rhov ( i ,  j  ) /rho ( i , j ) 

C*****VEL0CITIES 

if  (i .gt . 1 .and. j .gt . 1) then 

u(i,j)=0.d0 

u(i+l, j)=0.d0 

C*****option  to  use  parabolic  entrance  profile 
C  u (i , j ) =6 . *VNOMT* (- ( ( (y ( j ) **2) /DUCTH**2 ) ) +y ( j ) /DUCTH) 

v(i, j ) =0 . 
end  if 

106  CONTINUE 

c*****floW  in  sample  section  of  cell 
DO  103  I=isbeg, isend 
DO  103  J = J SBEG , J SEND 
t (i, j ) =tint 
xmdot (i, j)=0.D0 
EDS (i, j ) =edss 

c  *  *  * ★ *  INITIAL  SAMPLE  WATER  CONTENT 

ebwint= (0 . 578D0*rf *eds ( i , j ) *rhods/rhow) 

1* (rhint ) * ( (l.dO/ ( .321D0+ (rhint ) ) ) 

1+ ( 1 . DO/ (1.262D0- (rhint) ) ) ) 
ebwsat= (0 . 578D0*rf l*eds (i, j ) *rhods/rhow) 

1* (rhlOO) * ( (l.dO/ ( .321D0+ (rhlOO) ) ) 

1+ (1 .DO/ (1 .262D0- (rhlOO) ) ) ) 

EBW ( i , j ) =ebwint 

EGAM ( i , j ) =1 . DO -eds ( i , j ) -ebw ( i , j ) 
pv(i, j) =pvbot in 
rhov ( i , j ) =rhovbot 
pa(i, j ) =pabot 
rhoair ( i , j ) =rhoab 
psat (i, j ) =psati 
rho ( i , j ) =rhov ( i , j ) +rhoair ( i , j ) 
vapmf ( i , j ) =rhov ( i , j ) /rho (i #  j ) 
c*****VelOCities 

i f ( i . gt . 1 . and . j . gt . 1 ) then 
u(i, j)=0.d0 
u(i+l, j)=0.0 
c  v(i, j)=-l.d-10 

end  if 

103  CONTINUE 


c*****flow  in  solid  sections 
DO  102  1=1,11 
DO  102  J=l,ml 
if (isolid (i, j) .eq.l)then 
t (i, j)=tint 
xmdot (i, j )=0.D0 
EDS ( i , j ) =edsh 
EBW(i , j ) =0 .DO 
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EGAM(i, j ) =0 .DO 
pv(i, j)=0. 
rhov(i, j ) =0 . 
pa(i, j)=0. 
rhoair ( i , j ) =rhon20 
psat (i, j ) =psati 
rho ( i , j ) =rhov (i , j ) +rhoair ( i , j ) 
vapmf (i, j ) =0 .d0 
c*****VELOCITIES 

if (i.gt.l.and. j .gt.l)then 

u(i, j)=0.0 

v(i, j)=0.0 

end  if 

end  if 

102  CONTINUE 
RETURN 

C 

ENTRY  UNSTDY 
C*****FOLD=FNEW 

IF  (IBUG)  PRINT  *,  "ENTRY  UNSTEADY" 

DO  200  1=1, LI 
DO  200  J=1,M1 
DO  200  NF=1 , NFD 
FOLD ( I , J , NF ) =F ( I , J , NF ) 

200  CONTINUE 
RETURN 

★*★★*********★★*************★******★*★★★*★**★****★*** 


ENTRY  DENSE 

IF  (IBUG)  WRITE  (*,*)  "ENTRY  DENSE" 

CALL  THERMO 
CALL  SOURCE 
RETURN 

£★★★★★★*****★*★★★★★★★★★*★**★******★***★**★★*★★*★*•★*•★★★*■* 

C 

ENTRY  BOUND 

IF (IBUG) print  *,  'entry  bound' 

C*****option  to  use  more  precise  pressures 
c*****fiX  up  pressures 
pave=0 . 0 
do  974  j=2,m2 
pave=pave+p ( 12  #  j ) *ycv ( j ) 

974  continue 
pave=pave/yl 
do  975  i=l, 11 
do  975  j=l,ml 

c  p (i / j ) =p (i, j ) -pave+patm 

975  continue 
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c  *  *  *  *  *conc entrat i on  equation 
C*****top  and  bottom  boundaries  of  cell 

c*****bottom  inflow  of  cell  (not  really  necessary  after  1st  time) 
do  320  j =2 , JHLBEG- 1 
rhov ( 1 , j ) =rhovbot 
rhoair ( 1 , j ) =rhoab 

vapmf (1, j) =rhov(l, j) / (rhov(l, j ) +rhoair (1,  j) ) 

320  continue 

c*****top  inflow  of  cell  (not  necessary  either) 
do  321  j  = JHUEND+1 , m2 
rhov ( 1 , j ) =rhovtop 
rhoair ( 1 , j ) =rhoat 

vapmf (1, j ) =rhov(l, j ) / (rhov(l, j ) +rhoair (1,  j ) ) 

321  continue 
c*****OUtflow  of  cell 

do  322  j=2,m2 

vapmf ( 11 , j ) =vapmf ( 12 , j ) 

xmfr=vapmf (11, j ) / (l.dO-vapmf (11, j ) ) 

rhov ( 11, j ) = (xmfr*patm*xma/ (rgas*t (11, j ) ) ) 

1/ (l.dO+xmfr* (xma/xmw) ) 

PSAT(11, j ) =614 .3D0*DEXP (17 . 06D0* ( (T(ll , j ) -273 . 15D0) 

1/ (T(ll,j)-40. 25D0 ) ) ) 
pv(ll, j ) =rhov(ll, j ) *rgas*t (11, j ) /xmw 
pa ( 11 , j ) =patm-pv ( 11 , j ) 

rhoair (11, j ) =pa(ll, j ) *xma/ (rgas*t (11, j ) ) 

322  continue 

c*****get  impermeable  walls  at  joint  between  sample  and  holder 
c  do  323  j  = JHLBEG , JHUEND 

c  do  323  i=l , ISBEG-1 

c  rhov(i, j ) =rhov(ISBEG, j) 

c  rhov(i, j ) =1 .D-50 

c  rhov(i, j)=O.DO 

c  vapmf ( i , j ) =rhov ( i , j ) 

c  pv(i,j)=0.D0 

c  rhumida(i, j ) =pv(i, j ) /psat (i, j ) 

c  323  continue 
c  do  324  j= JHLBEG, JHUEND 

c  do  324  i=ISEND+l , ihend 

c  rhov(i, j ) =rhov(ISEND, j ) 

c  rhov (i, j ) =1 .D-50 

c  rhov(i, j)=O.DO 

c  vapmf (i, j ) =rhov(i , j ) 

c  pv(i,j)=0.D0 

c  rhumida ( i , j ) =pv ( i , j ) /psat ( i , j ) 

c  324  continue 
c*****top  and  bottom  of  cell 
do  325  i=l, 11 
vapmf ( i , 1 ) =vapmf ( i , 2 ) 
vapmf ( i , ml ) =vapmf ( i , m2 ) 
rhov ( i , ml ) =rhov  ( i , m2 ) 
rhoair ( i , ml ) =rhoair ( i , m2 ) 
rhov ( i , 1 ) =rhov ( i , 2 ) 
rhoair (i, 1) =rhoair (i,2) 

325  continue 
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c*****momentum  equations 

c*****check  incoming  flows  of  nitrogen  and  water  vapor 
c**** incoming  flows  on  bottom 
c*****flinb  is  inflow  of  nitrogen  only 
c*****flinbe  is  inflow  of  water  vapor  +  nitrogen 
f linb=0 . 0 
flinbe=0 .0 
do  300  j=2, jhlbeg-1 
rhot=rhoair ( 1 , j ) 
rhote=rhov ( 1 , j ) +rhoair ( 1 , j ) 
f linbe=f linbe+rhote*u (2 , j ) *ycv( j ) 
flinb=f linb+rhot*u (2 , j ) *ycv( j ) 

300  continue 

c***** Incoming  flows  on  top 
flint=0 . 0 
flinte=0 . 0 

do  301  j=jhuend+l ,m2 
rhot=rhoair ( 1 , j ) 
rhote=rhov ( 1 ,  j  ) +rhoair ( 1 , j ) 
flinte=f linte+rhote*u (2, j ) *ycv( j ) 
f lint=f lint+rhot*u (2 ,  j ) *ycv ( j ) 

301  continue 

c*****floutt  is  outflow  of  nitrogen  on  top 
c*****f loutte  is  outflow  of  water  vapor  +  nitrogen  on  top 
f loutt=0 . 0 
floutte=0.0 
do  303  j=jhuend+l ,m2 
rhot =rhoair ( 1 1 , j ) 
f loutt=f loutt+rhot*u (12 , j ) *ycv( j ) 
rhote=rhoair ( 11 , j ) +rhov ( 11 , j ) 
f loutte=floutte+rhote*u (12 , j ) *ycv( j ) 

303  continue 

c*****floutb  is  outflow  of  nitrogen  on  bottom 
c*****f loutbe  is  outflow  of  water  vapor  +  nitrogen  on  bottom 
f loutb=0 . 0 
f loutbe=0 . 0 
do  304  j=2, jhlbeg-1 
rhot=rhoair (11, j ) 
f loutb=f loutb+rhot*u (12 , j ) *ycv( j ) 
rhot e=rhoair ( 1 1 , j ) +rhov ( 1 1 , j ) 
f loutbe=f loutbe+rhote*u (12 , j ) *ycv( j ) 

304  continue 

C*****total  inflow  of  nitrogen 
totin=f lint+flinb 

c*****total  inflow  of  nitrogen  and  water  vapor 
tot ine=f lint e+f linbe 
c*****total  outflow  of  nitrogen 
f lout=floutt+floutb 

c*****total  outflow  of  nitrogen  and  water  vapor 
f loute=f loutte+f loutbe 
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c*****flow  factors  based  either  on  nitrogen  only  (totin) 
c*****or  nitrogen  +  water  vapor  (totine) 
factor=tot in/ flout 
factor=totine/floute 

c*****desired  ratio  of  upper  to  lower  flow  is  RATIO 
ratio=pinch 

targtop= (ratio/ (l.dO+ratio) ) * (f linbe+f linte) 
targbot= (f linbe+f linte-targtop) 
facttop=targtop/f loutte 
factbot=targbot/floutbe 
do  307  j=jhuend+l,m2 

307  u  ( 11 , j ) =u ( 12 , j ) *f act top 
do  308  j=2,jhlbeg-l 

308  u  ( 11 , j ) =u ( 12 , j  ) *f actbot 


c*****Option  to  set  velocities  in  sample  holder  and/or  sample  =  0 
c  do  310  i=2,12 

c  do  310  j=2,m2 

c  if ( isolid (i, j) . eq.l) then 

c  u(i,j)=0.d0 

c  u (i+1 , j ) =0 .d0 

c  v(i,j)=0.d0 

c  v(i, j+l)=0.d0 

c  end  i f 

c  310  continue 

C*****R0UTINE  T0  print  out  flows  at  various  locations  to 
c*****CHECK  CONTINUITY 
call  flwchekl 

c*****temperature  equation 
c ***** 1 0p  and  bottom  boundaries  of  cell 
c*****bottom  inflow  of  cell 
do  33  0  j  =2 , JHLBEG-1 
t  (1, j ) =tintb 

330  continue 

c ***** t Dp  inflow  of  cell 

do  331  j  = JHUEND+ 1 , m2 
t (1, j ) =tintt 

331  continue 
c*****outf low  of  cell 

do  332  j=2,m2 
t(ll,j)=t(12, j) 

c  *  *  *  * ★TEMPERATURE  ADDED  FOR  PLOTTING  CONTRAST  for  mcrogrfx 
C*****temperatUre  is  usually  the  peak  temperature  for  sorption 
t (11, jhuend-3)=tplot 

332  continue 

c*****get  adiabatic  walls  at  joint  between  sample  and  holder 
c  do  334  j  = JHLBEG , JHUEND 

c  t (11, j)=tint 

c  334  continue 
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c 

c 

c 


do  376  j  = J SBEG , J SEND 
do  376  i=ISEND+l , ihend 
t (i, j)=t (ISEND, j) 
c  376  continue 
c ***** t op  and  bottom  of  cell 
do  335  i=l , 11 
t (i,ml) =t (i,m2) 
t (i, 1) =t (i,2) 

335  continue 

RETURN 

Q* ******************************************************* 

C 

ENTRY  OUTPUT 

if (ibug) print  *,  1  entry  output' 
if (ibug) print  *,nf 
if (ibug) call  print 
RETURN 

ENTRY  0UTPUT2 
RETURN 

ENTRY  OUTPUT3 
RETURN 

Q********************************************************* 

C 

ENTRY  GAMSOR 

IF  (IBUG)  print  *,  'entry  gamsor' 
if  (ibug)  print  *,nf 
goto  (600, 610, 618, 618, 620, 64 0)nf 
goto  699 

c**** ★momentum  equation  nf=l 
600  DO  601  J=l/ml 
DO  601  1=1 , LI 

c*****cLEAR  FLUID  REGION 
GAM  ( I ,  J )  =AMU 

C*****IMPERMEABLE  regions  (very  high  viscosity) 
if (isolid(i, j) .eq.l)then 
gam { i ,  j  ) =amus 
c  ipin=isend+3 

c  jpin=jcent 

c  ap (ipin, jpin) =-l.d-40 

end  if 

C******SAMPLE  REGION  (POROUS  MATERIAL) 

C*****option  for  very  low  permeability  in  plane  of  fabrc 
if (isolid(i, j ) .eq.2)then 
xkdarc= ( 1 . D-2  0 ) *ykdarc 
xkdarc=ykdarc 
i f (ykdar c . eq . 0 . ) then 
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xkdarc=l . 
end  if 

c*****use  staggered  velocity  control  volume 
ap ( i , j ) =ap ( i ,  j  ) -gam ( i , j ) /xkdarc 
if (i .eq. isbeg) then 

ap  (i,  j  )  =-  ( (x(i)  -xu  (i) )  /xcvs  (i) )  *gam(i ,  j  )  /xkdarc 
end  if 

if (i.eq.isend) then 

ap (i+1, j  )  =ap  (i+1,  j  )  -  ( (xu  (i+1)  -x(i) )  /xcvs  (i  +  1) )  *gam(i,  j )  /xkdarc 
end  if 

i f  (y kdar c . eq . 0 . ) then 
ap  (i,  j )  =0 . 
ap  (i, jsend+1) =0 . 
end  if 

end  if 

GAM (LI, J)=0.d0 

rho ( i , j ) =rhoair ( i , j ) +rhov ( i , j ) 

601  CONTINUE 


c*****momentum  equation  nf=2 
c*****loWer  half  of  cell 
610  DO  611  J=l,ml 
DO  611  1=1, LI 

c*****CLEAR  FLUID  regions 

GAM  ( I ,  J )  = AMU 

c*****IMPERMEABLE  REGIONS  (very  high  viscosity) 
if (isolid(i, j) .eq.l)then 
gam(i,  j )  =amus 
c  ipin=isend+3 

c  jpin=jcent 

c  ap (ipin, jpin) =-l .d-40 

end  if 

rkdarcy (i, j ) =0 . 

C******SAMPLE  REGION  (POROUS  MATERIAL) 
c* *** *permeabil ity  perpendicular  to  plane  of  fabrc 
if (isolid(i, j ) .eq.2)then 
c*****permeability  across  fabric 

c*****rkdarCy  is  darcy  resistance  normalized  w.r.t.  rddry 

rkdarcy (i, j ) = ( rddry + (ebw(i, j ) /ebwsat) * (rdwet -rddry) ) /rddry 

rkdarcl=rddry *rkdarcy ( i , j ) 

ykdarcl=thick/rkdarcl 


if (ykdarc . eq . 0 . ) then 
y kdar c 1=1. 
end  if 
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c******use  staggered  control  volumes  for  velocity  source  terms 
ap ( i , j ) =ap ( i , j ) -gam ( i , j ) /ykdarcl 
if ( j .eq. jsbeg) then 

ap  (i,  j  )  =-  ( (y(j)-yv(j) )  /ycvs  (j  ) )  *gam(i, j  )  /ykdarcl 
end  if 

if ( j . eq. j send) then 

ap(i,  j+l)=ap(i,  j+1)  -  (  (yv  ( j+1)  -y  ( j  ) )  /ycvs  (j+1) )  *gam(i/  j  )  /ykdarcl 
end  if 

if (ykdarc .eq. 0 . ) then 
ap  (i/ j ) =0 . 
end  if 

end  if 

GAM(L1 ,  J)  =0 . 

rho ( i , j ) =rhoair ( i , j ) +rhov ( i , j ) 

611  CONTINUE 
goto  699 

c*****source  terms  for  pressure  correction  and 
C*****pressure  equations  (mass  source) ,nf=3,4 

618  DO  619  J = J SBEG , J SEND 
DO  619  I=isbeg, isend 

rho (i, j ) = (rhov(i , j ) +rhoair (i , j ) ) 

rhoegn= (rhov(i ,  j ) +rhoair (i , j ) ) *egam(i, j ) 

rhoego= (fold (i , j , 17 ) +fold (i , j , 10) ) *fold (i , j ,  9 ) 

dgascon= (rhoegn-rhoego) /dt 

xsource=xmdot ( i , j ) -dgascon 

con(i, j)=xsource 

ap (i, j ) =0 .d0 

619  CONTINUE 
goto  699 

c*****concentration  equation,  nf=5 

620  CONTINUE 

c*****rho  and  gam  for  gas  flow  in  cell 
do  623  j=l  ,ml 
do  623  i=l, 11 

dair=(2.20D-5) *( (T(i, j) /273.15D0) **1.75D0) 
rho ( i , j ) =rhov ( i , j ) +rhoair ( i , j ) 
rhol (i, j)=rho(i, j) 

c*****CLEAR  FLUID  REGION 
gam(i, j ) =dair 
gam  ( i , j ) =gam ( i , j ) * rho ( i , j ) 

c  *  *  *  *  * IMpERMEABLE  REGIONS 

if ( isolid ( i , j ) . eq . 1 ) then 

gam(i, j)=0.d0 

gam  ( i ,  j )  =gam ( i ,  j  )  *rho  (i ,  j  ) 
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end  if 


C*****SAMPLE  REGIONS  (POROUS  MATERIAL) 
if (isolid (i, j ) .eq.2)then 
def  f =dair*egaxn  (i,  j  )  /tau 
gam(i, j)=deff 
gam  ( i , j ) =gam ( i , j ) *  rho ( i , j ) 
c*****SOUrCe  terms  for  sample  regions 
rhogam=rho ( i , j ) 
dvapmf dt= ( rhogam*vapmf ( i ,  j )  - 
1 (fold (i, j , 17) +fold (i, j , 1 0 ) ) *fold(i, j ,  5) ) /dt 
xsource=xmdot (i , j ) * (1 . dO- (rhogam/rhow) *vapmf ( i , j ) ) + 
1(1. dO -egam ( i , j ) ) *dvapmf dt 
if (xsource.lt.O.)then 
con(i, j)=0.D0 

ap ( i , j ) =xsource/ ( vapmf ( i , j ) ) 
end  if 

if (xsource.ge.O. )then 
con(i, j)=xsource 
ap (i, j ) =0 .DO 
end  if 
end  if 

C*****entranCes ,  exits,  and  boundaries 
gam(i, 1) =0 .DO 
gam (i ,ml) =0 .dO 
c  gam(l, j)=0.d0 

gam(ll, j)=0.d0 

623  continue 

do  6223  i=l, 11 
do  6223  j=l,ml 

dair= (2 .20D-5) * ( (T(i, j ) /273 . 15D0) **1.75D0) 
c*****keep  track  of  effective  normalized  diffusivity 
dif fg (i , j ) =gam (i , j ) / (dair*rho (i , j ) ) 

6223  continue 
go  to  699 

c*****ENERGY  EQUATION,  NF=6 
640  CONTINUE 
CALL  ERHO 
go  to  699 

699  RETURN 

c*********************** *************  *********** ************ 

c 

ENTRY  SAVE1 
RETURN 

(2i********************************************************* 

c 
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ENTRY  OUTTOO 


lprint (1) =.TRUE. 
lprint (2 ) =. true, 
lprint (3 )  = . true . 
lprint (4) = . true. 

LPRINT (5 )=. TRUE. 

C  LPRINT (6 )=.TRUE. 

c  LPRINT (7 )=. TRUE. 

C  LPRINT (8 )  =  . TRUE. 

C  LPRINT (9 )=.TRUE. 

C  LPRINT (10)=. TRUE, 

c  LPRINT (11)=. TRUE . 

c  LPRINT (12)=. TRUE, 

c  LPRINT (13)=. TRUE, 

c  LPRINT (14)=. TRUE, 

c  LPRINT (15)=. TRUE. 

C  LPRINT (16)=. TRUE. 

LPRINT (17)=. TRUE, 
lprint (18) =. true, 
lprint (19) =. true, 
lprint (20) =. true, 
c  call  print 

if (iter .eq. 50) then 
nprint=10 
iwrite=nprint 
end  if 

c*****0ptions  to  go  to  unsteady  calculations 
if (iter .ge. 50) then 
call  times tep 
end  if 

if  (iwrite.eq.nprint )  then 

call  vaporflx 
call  flwchekl 
call  flwchek2 

if (lsteady ) then 
else 

print  ' 

print  *, '  iter , smax, ssum' 
print  *, iter, smax, ssum 
end  if 

iwrite=0 
end  if 

iwrite=iwrite+l 
it=int (time) 
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if (it .eq. 0) then 
dataf ile3='0. dat' 
c  call  mcrogrfx 

c  call  print 

end  if 

if  (it. eq. 5) then 
datafile3='5 .dat ' 
c  call  mcrogrfx 

end  if 

if (it .eq. 10) then 
dataf ile3=' 10 .dat ' 
c  call  mcrogrfx 

end  if 

if (it .eq. 30) then 
dataf i le3  = ' 3  0 . dat ' 
c  call  mcrogrfx 

end  if 

if (it .eq. 60) then 
dataf ile3= ' 60 .dat ' 
c  call  mcrogrfx 

end  if 

if (it .eq. 300) then 
dataf i 1 e3  = ' 3  0  0 . dat ' 
c  call  mcrogrfx 

end  if 

if (iter .eq. last) then 
dataf ile3=' last .dat ' 
c  call  mcrogrfx 

end  if 
RETURN 

C 

ENTRY  SAVE PC 
RETURN 


C********************************************************* 

C 

ENTRY  SAVE2 

RETURN 

END 

SUBROUTINE  USER2 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER  TITLE* 18 
CHARACTER  DATAF ILE 1*60 
CHARACTER  DATAF I LE2  *  6  0 
character  dataf ile3 *60 
character  dataf ile4* 60 
character  datafile5*60 
character  header*64 
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LOGICAL  LSOLVE, LPRINT, LBLK, LSTOP, LSTEADY, IBUG 
PARAMETER  ( ID=3 0 0 , JD=3 0 0 , NFD=20 , NFP3 =23 , MI J=3 0 0 ) 

COMMON  F ( ID, JD, NFD) ,RHO(ID,JD) ,GAM(ID, JD) , CON (ID, JD) , 

1  AIP(ID, JD) , AIM (ID, JD) ,AJP(ID, JD) ,AJM(ID, JD) ,AP(ID, JD) , 

2  X(ID) , XU (ID) ,XDIF (ID) ,XCV(ID) ,XCVS(ID) , 

3  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) , YCVS ( JD) , rhol (id, jd) , 

4  YCVR(JD) , YCVRS (JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R( JD) ,RMN( JD) ,SX(JD) ,SXMN(JD) ,XCVI(ID) ,XCVIP(ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,FV(JD) ,FVP(JD) , 

1  FX (ID) , FXM (ID) , FY ( JD) , FYM(JD) ,PT(MIJ) ,QT(MIJ) 

COMMON/ INDX/NF , NFMIN, NFMAX, NP , NRHO , NGAM, LI , L2 , L3 , Ml , M2 , M3 , 

1 1ST , JST , ITER , JITER , LAST , TITLE (NFP3 ) , RELAX (NFP3 ) , TIME , DT , XL , YL , 

2 IPREF , JPREF , LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , MODE , 

3NTIMES (NFP3 ) , RHOCON 
COMMON/CNTL/LSTOP , LSTEADY, LSCHEME 
COMMON/ SORC/ SMAX , SSUM 
COMMON/COEF/FLOW, DIFF , ACOF 

COMMON/UNSTEDY/FOLD ( ID, JD, NFD) ,FNEW(ID,JD) ,JLAST, 

1  IFLAG(NFD) , EPS (NFD) , DIFMAX, JFLAG, deltat 
COMMON/EXPNT/ ALAMBDA ( ID , JD) , FP ( ID , JD ) 

COMMON/ DEBUG / IBUG 

COMMON/OTHER/GAM5 (ID, JD) ,RH05(ID,JD) ,GAM6(ID,JD) ,RH06(ID,JD) 
DIMENSION  U(ID, JD) ,V(ID, JD) , PC(ID, JD) ,P(ID, JD) 

EQUIVALENCE (F( 1,1,1) ,  U  (1 , 1) ) ,  (F ( 1 , 1 , 2 ) , V (1, 1 ) ) ,  (F (1 , 1 , 3 ) , PC (1 , 1) ) 
EQUIVALENCE (F( 1,1, 4) ,P(1,1) ) 

Q* ************************************************* 

c 

C*****UNSTEADY  DIFFUSION  PROBLEM**************************** 

COMMON/ PROPS /RF , TAU, RHODS , RHOW, TKDS , TKW, TKV, TKA, 

1CPDS , CPW, CPV, CPA, PATM, RGAS , XMW, XMA, CHTC , CMTC , dsolid, 
lmethod , epsrhov, iwr it e , npr int , aL , aL2 , ddry , dwet , dhvap , 
lql , header , tkss , cpss , rhoss , edss , edsa , edsh, amu , amus , xmn2 , 
lykdarc , xkdarc , deltap , pinch, f acttop , f actbot , rddry , rdwet , 
lthick,rfl 

common/dataf le/dataf ilel , dataf ile2 ,dataf ile3 , dataf ile4 , 
ldataf ile5 

C  OMMON / BNDRY / PSATB , RHBND , TBND , PVBND , RHOVBND , PABND , RHOABND 
1 , psatbb , psatbt , rhbndb , rhbndt , tbndb , t int , ebwint , ebwsat , 
ltbndt , pvbndb , pvbndt , rhovbndb , rhovbndt , pabndb , pabndt , 
lrhoabndb, rhoabndt , weight i , weight , rhint , tintt , tintb 
COMMON/DUCT/RHOA, DUCTH, DUCTA, DUCTW, RHON2 , VNOM , 
ldn2 , def f , rhovtop, rhovbot , rhoat ,rhoab, isbeg, isend, 

1 j sbeg , j s end , j hlbeg , j h 1 end , j hubeg , j huend , vnomt , vnomb , 
lxmassti , xmassbi , xmassto , xmassbo , xtot in, xtotout , xmasssi , 
lxmassso , xsample , y sample, xgn2mks ,  dcssi , dctopi , dcboti , 
ldcboto,dctopo,xqst ,xqsb, icent , jcent , convcte, ihend 
1 , ltype, ivalvbeg, ivalvend, jvalvbeg, jvalvend 
common/ vapor /xmvt , xmvb , xmn2 1 , xmn2b , xmn2  out , xmvout , rhbo 
common/solid/kplot (nfp3) , isolid (id, jd) ,tplot 
DIMENSION  T(ID, JD) ,RHOV(ID,JD) ,EBW(ID, JD) , XMDOT(ID, JD) , 

1EGAM(ID, JD) ,RHOAIR(ID, JD) ,PV(ID, JD) ,PA(ID, JD) ,PSAT(ID, JD) , 

1EDS (ID, JD) , TKEFF (ID, JD) , RHUMIDA(ID, JD) , vapmf (id, jd) 
l,xsolid (id, jd) , dif fg (id, jd) , rkdarcy (id, jd) 

EQUIVALENCE (F ( 1,1, 5) , vapmf (1,1) ) , (F(l,l,6) ,T(1,1) ) , 
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1(F (1,1,7) , EBW  (1,1) ) ,  (F (1,1,8) , XMDOT (1,1) ) , 

1(F (1,1,9) , EGAM (1,1)), (F ( 1 , 1 , 10) , RHOAIR (1 , 1) ) , 

1(F(1,1,11) ,PV(1,1)) , (F (1,1,12) , PA (1,1)) , 

1 (F ( 1 , 1 , 13 ) , PSAT  (1,1) ) ,  (F ( 1 , 1 , 14) , EDS (1,1)),  (F (1,1, 15) , 
1TKEFF (1,1) ) , ( F ( 1 , 1 , 1 6 ) , RHUMIDA (1,1) ) , (f (1,1,17) ,rhov(l,l) ) 
1, (F (1,1,18) ,xsolid(l, 1) ) , (f (1,1,19) ,dif fg (1, 1) ) , (f (1, 1,20) , 
lrkdarcy (1,1) ) 

entry  property 
if (ibug)print  *,'property' 

c  *  *  *  *  *  problem  constants  and  material  properties 

open (unit=10 , f ile= ' fabric  *  dat ' ) 
c*****thickneSS  of  one  layer  (m) 
read (10 , 532) thickl 
c*****thickness  of  two  layers  (m) 
thick=thickl 

c*****Darcy  flow  resistances  for  one  layer  (m^-1) 
read (10, 532) rddry 
read (10, 532) rdwet 

C*****DarCy  flow  resistances  for  two  layers  (m^-1) 
rddry=rddry 
rdwet =rdwet 
ykdarc=thick/rddry 
ckifi(**volume  fraction  of  dry  solid 
read (10,532) edss 

c*****solid  phase  diffusion  coefficient  of  water  (mA2/s) 
read (10 , 532) dsolid 
c*****ef fectiVe  fiber  diameter  (m) 
read (10, 532 )aL 

C*****mass  fraction  of  water  to  dry  solid  at  65%  r.h. 

read (10, 532) rfl 
c*****t0rtU0sity 

read (10, 532) tau 

c*****dry  polymer  solid  density  (kg/m^3) 
read (10,532) rhods 

c*****thennal  conductivity  (J/(s-m-K)) 
read (10, 532) tkds 

c*****heat  capacity  of  solid  polymer  (J/(kg-K)) 
read (10, 532) cpds 

c**** temperature  added  for  contrast  on  Micrografix  plots 
read (10 , 532) tplot 
close (10) 

531  format (ilO) 

532  format (el5 . 5) 
rf=0 . 0 

c*****solid  volume  fraction  of  clear  gas 
edsa=0 .DO 

c*****solid  volume  fraction  of  the  sample  holder 
edsh=1.0D0 

c*****density  of  liquid  water  (kg/m^S) 
rhow=1000 .DO 

c*****thermal  conductivities  of  water,  vapor,  air  (J/ (s-m-K) ) 
tkw=0 . 6D0 
tkv=0 . 0246D0 
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tka=0 . 02563D0 

c***** thermal  properties  of  sample  holder  (stainless  steel) 
tkss=14.4 
cpss=461 . 
rhoss=7817 . 

C*****heat  capacities  of  liquid  water,  vapor,  air  (J/(kg-K)) 
cpw=4182 .DO 
cpv=1862 . DO 
cpa=1003 .DO 

c*****nitrogen  viscosity  (N-s/m^2) 

AMU=1 . 784D-5 
AMUS=1.D20 

C*****T0TAL  GAS  PRESSURE  (ATMOSPHERIC)  (Pa) 

PATM=101325 .DO 

c  *  *  *  *  * UNIVERSAL  GAS  CONSTANT  (N-m)  /  (kg-K) 

RGAS=8314 . 5 

c*****M0LECULAR  WEIGHTS  (kg/kgmole) 

XMW=18 . 015 
XMA=28 . 97 
XMN2=28 . 013 
RETURN 

entry  THERMO 

if (ibug)print  *, 'entry  thermo' 
do  1021  j=l,ml 
do  1021  i=l, 11 
if (isolid (i, j ) .ne.l)then 
c*****new  method  (assume  atmospheric  pressure) 

PSAT ( i , j ) =614 . 3D0*DEXP ( 17 . 06D0* ( (T(i , j ) -273 . 15D0) 

1/ (T(i,j)-40 . 25D0 ) ) ) 
sphumid=vapmf ( i , j ) / ( 1 . dO-vapmf ( i ,  j  ) ) 
rhov ( i , j ) =xma*patm*sphumid/ 

1 (rgas*t (i , j ) * (1 . + (xma/xmw) *sphumid) ) 
pv(i, j ) =rhov(i, j ) *rgas*t (i, j ) /xmw 
pa ( i , j ) =patm-pv ( i , j ) 

rhoair (i, j ) =pa(i, j ) *xma/ (rgas*t (i, j ) ) 
rho ( i , j ) =rhov ( i , j ) + rhoair ( i , j ) 
rhumid=pv ( i , j ) /psat ( i , j ) 
rhumida ( i , j ) =rhumid 

vapcalc=rhov(i , j ) / (rhov(i , j ) +rhoair (i , j ) ) 
errx=dabs (vapcalc-vapmf (i, j ) ) 

C*****alternate  method 

c  wbar=l .  /  ( vapmf  ( i ,  j  )  /xmw+  ( 1 .  -vapmf  ( i ,  j  )  )  /xma) 

c  rho (i, j ) =patm*wbar/ (rgas*t (i , j  )  ) 

c  rhov ( i , j ) =rho ( i , j ) * vapmf ( i , j ) 

c  rhoair ( i , j ) =rho ( i , j ) * ( 1 . -vapmf ( i , j ) ) 

c  pv(i, j ) =rhov(i, j ) *rgas*t (i, j ) /xmw 

c  pa ( i , j ) =patm-pv ( i , j ) 

c  rhumid=pv ( i , j ) /psat ( i , j ) 

c  rhumida ( i , j ) =rhumid 

end  if 

1021  continue 
RETURN 
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entry  SOURCE 

if (ibug)print  *, 'entry  source' 
do  1120  j=l,ml 
do  1120  i=l, 11 
xmdot (i, j)=0.d0 
1120  continue 

do  1122  j  = J SBEG , J SEND 
do  1122  i=ISBEG, ISEND 

rhuiciid=pv(i,  j )  /  (psat  (i,  j )  +  (l.D-10)  *psat  (i,  j ) ) 
ebw(i, j ) = (0.578D0*rf *eds (i, j) *rhods/rhow) 

1* (rhumid) * ( (l.dO/ ( .321D0+ (rhumid) ) ) 

1+ (1.D0/ (1 .262D0- (rhumid) ) ) ) 
xmdot (i, j ) = (fold(i, j ,7) -ebw(i, j ) ) *rhow/dt 
req=ebw(i, j) *eds (i, j ) *rhods/rhow 
rinst=fold(i, j ,7) *eds (i, j) *rhods/rhow 
xmdot (i, j ) =dsolid*rhods* (rinst-req) / (aL*aL) 
ebw ( i ,  j ) =f old ( i , j , 7 ) -xmdot ( i ,  j ) *dt/rhow 
egam (i , j ) =1 .D0-eds (i, j ) -ebw(i , j ) 

1122  continue 
RETURN 

entry  ERHO 

if (ibug)print  *, 'entry  erho' 
weight =0 . 0 
do  631  j=l,ml 
do  631  i=l , 11 

c*****density  and  heat  capacity  for  energy  equation 
rhoavg=rhow*ebw  ( i ,  j  )  +rhods  *eds  ( i ,  j  )  + 

1 (rhov ( i , j ) +rhoair ( i , j ) ) *egam ( i , j ) 
cpavg= (rhow*fold(i, j ,7 ) *cpw+rhods*fold (i, j , 14) *cpds+ 
1 (fold ( i , j , 17 ) *cpv+f old (i , j , 10 ) *cpa) *f old ( i , j , 9 ) ) / 

1 (rhoavg+1 .D-20) 
rhogam=rhov ( i , j ) +rhoair ( i , j ) 
cpgam= (rhov(i, j ) *cpv+rhoair (i, j ) *cpa) /rhogam 
rho ( i , j ) =rhogam*cpgam 
rhol ( i , j ) =rhoavg*cpavg 
if (isolid (i, j ) .eq.l)then 
rho (i , j ) =cpss*rhoss 
rhol (i , j ) =cpss*rhoss 
end  if 

c*****diffusion  coefficients 

tkf= ( (tkw*rhow*ebw(i, j ) +tkds*rhods*eds (i,  j ) ) 

1/ (rhow*ebw(i, j ) +rhods*eds (i , j ) +1 .D-50) ) 
tkg= ( (tkv*rhov(i, j ) +tka*rhoair ( i , j ) ) / 

1 (rhov(i, j ) +rhoair (i, j ) +1 .D-20) ) 
vf=eds (i,  j ) +ebw(i, j ) 

tkperp=tkf*tkg/ (vf *tkg+ (l.DO-vf ) *tkf+l .D-50) 
tkprll= (1 .d0-VF) *tkg+vf *tkf 
womega=l .d0 

gam(i, j )=womega*tkprll+ (l.dO-womega) *tkperp 
if (isolid(i, j) .eq.l)then 
gam(i , j ) =tkss 
end  if 
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c*****GntranceS/  exits,  and  boundaries 
gam(i, 1) =0 .DO 
gam(i,ml) =0.d0 
c  gam(l,  j  )  =0  .d0 

gam(ll, j)=0.d0 
tkeff (i, j ) =gam(i/ j ) 
c****source  terms  for  energy  equation 

dhvap=(2.792d6)-160.D0*t (i, j)-3.43d0*t (i, j )  *t  (i, j) 
ql=(1.95D5)*(l.dO-pv(i, j) / (psat (i, j ) +1 .D-100) ) 

1* ( (1 .d0/ (0 .2d0+ (pv(i, j ) / (psat (i, j ) +1 .D-100) ) ) ) + 

1 (l.dO/ (1 .05d0- (pv(i, j ) / (psat (i, j) +1. D-100) ) ) ) ) 
xsource=- (dhvap+ql ) *xmdot ( i , j ) 
if (isolid(i, j ) .eq.l)then 
xsource=0 .d0 
end  if 

xsourcep= (rhoavg*cpavg-cpgam*rhogam) *fold(i, j , 6) /dt 
xsourcem= (rhoavg*cpavg-cpgam*rhogam) *t (i, j ) /dt 
i f (xsource . It . 0 . ) then 
con(i, j)=0. 

ap(i, j )=xsource/t (i, j) 
end  if 

i f (xsource . ge . 0 . ) then 
con ( i , j ) =xsource 
ap  ( i , j ) =  0  . 
end  if 

631  continue 
RETURN 

entry  GRIDGEN 

if (ibug)print  *, 'entry  gridgen' 

c  print  *, 'input  ratio  of  exiting  upper  flow  to  entering  upper  flow' 

c  read  (*,*) pinch 

c  pinch=1.0147 

pinch=0 . 1 
MODE=l 

C*****Number  of  control  volumes  in  each  x  region 
c*****entrance  region 
NXV0LS1=2 

C*****appr0ach  region 
NXVOLS2=4 

c*****edge  before  sample 
NXVOLS3=4 

c*****edge  right  after  sample  edge  (1st  quarter  of  sample) 

NXVOLS4=2 

c*****middle  region  of  sample 
NXVOLS5=5 

c****back  1/4  of  sample 
NXVOLS6=2 

c****first  edge  of  back  holder 
NXVOLS7=4 

c****middle  region  of  holder 
NXVOLS8=4 

c*****Valve  region 
NXVOLS9=2 
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c*****mixing  region 
NXVOLS10=4 

C*****Number  of  x  regions 
NXREG=10 

C*****Number  of  control  volumes  in  each  y  region 
NYV0LS1=4 

c*****center  of  duct  region 
NYVOLS2=4 
NYVOLS3=4 
NYVOLS4=4 

c*****sample  y  region 
NYVOLS5=7 
NYVOLS6=4 
NYVOLS7=4 
NYVOLS8=4 
NYVOLS9=4 

C*****Number  of  y  regions 
NYREG=9 

C*****SAMPLE  DIMENSIONS 
XSAMPLE=4.D-2 
YSAMPLE=thick 

c*****DIstance  along  duct  for  FIRST  GRID  (m) 

XDUCT1=1 . D-2 

C*****DISTANCE  FR0M  DUCT  ENTRANCE  to  SAMPLE  EDGE  (m) 

XDUCT2=4 . 5D-2 

C*****DISTANCE  FROM  SAMPLE  BACK  EDGE  TO  HOLDER  EDGE 
XDUCT3=4 . 5D-2 

C*****DISTANCE  FROM  HOLDER  BACK  EDGE  TO  DUCT  EXIT 
XDUCT4=4 . OD-2 

C*****T0TAL  DUCT  LENGTH  (m) 

XL=XDUCT2 +XDUCT3 +XDUCT4 +XSAMPLE 

C*****DUCT  HEIGHT  (m) 

DUCTH=2 . 5D-3 

c*****valve  region 
xvalve=ducth 
xvalve= . I*xduct3 

C*****SAMPLE  HOLDER  THICKNESS  (m) 

YHOLDER=4 . 572D-4 

C*****TOTAL  THICKNESS  in  Y  DIRECTION  (m) 

YL=2 . *DUCTH+YSAMPLE+2 . *YHOLDER 

NXVOLS=NXVOLS 1 +NXV0LS2 +NXV0LS3 +NXV0LS4  +NXV0LS5  +NXVOLS  6 
1+NXVOLS7+NXVOLS8+NXVOLS9+NXVOLS10 
NYVOLS =NYVOLS 1 +NYV0LS2 +NYV0LS3 +NYVOLS 4  +NYVOLS 5  +NYVOL S  6 
1 +NYVOLS7 +NYV0LS8 +NYV0LS9 
Ll=NXVOLS+2 
Ml=NYVOLS+2 

c*****use  uniform  grids  for  each  section 
XU (2 ) =0 .DO 
NXBEG=3 

NXEND=NXVOLS 1+2 
XL1=XDUCT1 

DX=XL1 /DFLOAT (NXVOLS1 ) 

DO  1  I =NXBEG , NXEND 
XU ( I ) =XU ( 1-1 ) +DX 
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1  CONTINUE 
NXBEG=NXEND+ 1 
NXEND=NXEND+NXVOLS2 

XL2  =XDUCT2 - (XSAMPLE/4 .DO) 

DX= (XL2 -XL1 ) /DFLOAT (NXVOLS2 ) 

DO  2  I =NXBEG , NXEND 
XU  ( I ) =XU ( 1-1 ) +DX 

2  CONTINUE 
NXBEG=NXEND+ 1 
NXEND=NXEND+NXVOLS3 
XL3  =XDUCT2 

DX= (XL3 -XL2 ) /DFLOAT (NXVOLS3 ) 

DO  3  I =NXBEG , NXEND 
XU (I) =XU ( I— 1 ) +DX 

3  CONTINUE 
NXBEG=NXEND+ 1 
NXEND=NXEND+NXVOLS4 

C*****SAMPLE  BEGINS  AT  NODE  ISBEG 
I SBEG=NXBEG - 1 
XL4=XDUCT2+ (XSAMPLE/4 .DO) 

DX= (XL4-XL3 ) /DFLOAT (NXVOLS4 ) 

DO  4  I =NXBEG , NXEND 
XU  ( I )  =XU  ( I  - 1 )  +DX 

4  CONTINUE 
NXBEG  =NXEND + 1 
NXEND=NXEND+NXVOLS5 

XL5= ( (XDUCT2) +XSAMPLE) - (XSAMPLE/4 .DO) 
DX= (XL5-XL4 ) /DFLOAT (NXVOLS5 ) 

DO  5  I =NXBEG , NXEND 
XU (I) =XU (1-1) +DX 

5  CONTINUE 
NXBEG=NXEND+ 1 
NXEND=NXEND+NXVOLS 6 

c  *  *  *  *  *  SAMPLE  ENDS  AT  NODE  I SEND 
I SEND=NXEND - 1 
XL6= (XDUCT2 ) +XSAMPLE 
DX= (XL6-XL5) /DFLOAT (NXVOLS 6) 

DO  6  I =NXBEG , NXEND 
XU(I)=XU(I-1) +DX 

6  CONTINUE 
NXBEG =NXEND+1 
NXEND=NXEND+NXVOLS7 

XL7= (XDUCT2 ) +XSAMPLE+ (XSAMPLE/4 -DO) 
DX= (XL7 -XL6 ) /DFLOAT (NXVOLS7 ) 

DO  7  I =NXBEG , NXEND 
XU ( I ) =XU ( I- 1 ) +DX 

7  CONTINUE 

C*****MIDDLE  OF  SAMPLE  HOLDER 
NXBEG=NXEND+1 
NXEND=NXEND+NXVOLS8 
XL8  =XDUCT2  +XSAMPLE+XDUCT3 -xvalve 
DX= (XL8-XL7 ) /DFLOAT (NXVOLS8 ) 

DO  8  I=NXBEG ,  NXEND 
XU ( I ) =XU ( 1-1 ) +DX 
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8  CONTINUE 
C*****VALVE  REGION 

C*****the  valve  is  not  used  any  more,  but  the  grids 
C*****are  retained 
NXBEG=NXEND+ 1 
NXEND=NXEND+NXVOLS  9 
C*****valve  begins  at  node  IVALVBEG 
C*****valve  ends  at  node  IVALVEND 
ivalvbeg=nxbeg-l 
i val vend=nxend- 1 

C*****SAMPLE  HOLDER  ENDS  AT  IHEND 
ihend=i val vend 
XL9 =XDUCT2+XSAMPLE+XDUCT3 
DX= (XL9-XL8) /DFLOAT (NXVOLS9 ) 

DO  88  I=NXBEG , NXEND 
XU ( I ) =XU ( 1-1 ) +DX 

88  CONTINUE 
NXBEG=NXEND+ 1 
NXEND=NXEND+NXVOLS 1 0 
XL10=XL 

DX= (XL10-XL9) /DFLOAT (NXVOLSIO) 

DO  89  I=NXBEG, NXEND 
XU (I) =XU ( I— 1 ) +DX 

89  CONTINUE 

ductc= . 5*ducth 
YV (2 ) =0 .DO 
NYBEG=3 

NYEND=NYVOLSl+2 
YL1= (ducth-ductc) /2 .d0 
dy = YL 1 / DFLOAT (NYVOLS1 ) 

DO  9  J =NYBEG , NYEND 
yv( j ) =yv( j-l) +dy 
9  CONTINUE 

NYBEG=NYEND+ 1 
NYEND=NYEND+NYVOLS2 
YL2=ductc+ (ducth-ductc ) /2 . dO 
dy = (YL2 -YL1 ) /DFLOAT (NYVOLS2 ) 

DO  10  J=NYBEG, NYEND 
yv ( j ) =yv ( j -1 ) +dy 

10  CONTINUE 
NYBEG=NYEND+ 1 
NYEND=NYEND+NYVOLS3 
YL3=ducth 

dy= (YL3 -YL2 ) /DFLOAT (NYVOLS3 ) 

DO  11  J=NYBEG,  NYEND 
yv(j)=yv(j-l)+dy 

11  CONTINUE 
NYBEG=NYEND+1 
NYEND=NYEND+NYVOLS4 

C*****LOWER  SAMPLE  HOLDER  BEGINS  AT  NODE  JHLBEG 
JHLBEG=NYBEG- 1 

C*****LOWER  SAMPLE  HOLDER  ENDS  AT  NODE  JHLEND 
JHLEND=NYEND- 1 
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YL4 =ducth+ YHOLDER 

dy= (YL4-YL3 ) /DFLOAT (NYVOLS4 ) 

DO  12  J =NYBEG , NYEND 
yv(j)=yv(j-l)+dy 

12  CONTINUE 
NYBEG=NYEND+ 1 
NYEND=NYEND+NYVOLS5 

C*****SAMPLE  BEGINS  AT  NODE  JSBEG 
JSBEG=NYBEG-1 

C*****SAMPLE  ENDS  AT  NODE  JSEND 
JSEND=NYEND-1 
YL5=ducth+YHOLDER+ys  amp 1 e 
dy= (YL5-YL4) /DFLOAT (NYVOLS5) 

DO  13  J=NYBEG, NYEND 
yv(j)=yv(j-l)+dy 

13  CONTINUE 
NYBEG=NYEND+ 1 
NYEND=NYEND+NYVOLS 6 

C*****UPPER  SAMPLE  HOLDER  BEGINS  AT  NODE  JHUBEG 
JHUBEG=NYBEG-1 

C*****UPPER  SAMPLE  HOLDER  ENDS  AT  NODE  JHUEND 
JHUEND=NYEND-1 

YL6=ducth+ysample+2 . * YHOLDER 
dy= (YL6-YL5) /DFLOAT (NYVOLS 6) 

DO  14  J=NYBEG, NYEND 
yv ( j ) =yv ( j -1 ) +dy 

14  CONTINUE 
NYBEG=NYEND+ 1 
NYEND=NYEND+NYVOLS7 

c*****]_ower  valve  body  begins  at  jhuend+1 

c*****loWer  valve  body  ends  at  jvalvbeg 
j  val vbeg=ny end- 1 

YL7  =ducth+ysample+2 . * YHOLDER + (ducth-ductc) /2 .dO 
dy= (YL7-YL6 ) /DFLOAT (NYVOLS7 ) 

DO  15  J=NYBEG, NYEND 
yv( j ) =yv( j-l) +dy 

15  CONTINUE 
NYBEG=NYEND+ 1 
NYEND=NYEND+NYVOLS8 

YL8=2 . *ducth+ysample+2 . * YHOLDER- (ducth-ductc) /2 .dO 
dy= (YL8-YL7 ) /DFLOAT (NYVOLS8 ) 

DO  16  J=NYBEG, NYEND 
yv ( j ) =yv ( j -1 ) +dy 

16  CONTINUE 
NYBEG=NYEND+1 
NYEND=NYEND+NYVOLS9 

c*****upper  valve  body  begins  at  jvalvend 
jvalvend=nybeg-l 
YL9  =YL 

dy= (YL9 -YL8 ) /DFLOAT (NYV0LS9 ) 

DO  17  J=NYBEG, NYEND 
yv(j)=yv(j-l)+dy 

17  CONTINUE 
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c  print  *, ' 11, ml 1 

c  print  *,11,1111 

c  print  * , ' isbeg, isend, jsbeg, jsend, ihend' 

c  print  * , isbeg , isend , j sbeg , jsend , ihend 

c  print  *, ' jhlbeg, j hi end, jhubeg, jhuend' 

c  print  * , jhlbeg, j hi end, jhubeg, jhuend 

c  print  *, 'ivalvbeg, ivalvend, jvalvbeg, jvalvend' 

c  print  * , ivalvbeg , ivalvend, jvalvbeg , jvalvend 

icent=isbeg+ (isend-isbeg+1)  /2 
jcent=jsbeg+ ( jsend- jsbeg+1) / 2 
c  print  * , ' icent , j  cent ' 

c  print  *, icent, j cent 

c*****define  the  various  regions  of  the  domain  in  terms  of  isolid 
c*****l=solid,  0=clear  fluid,  2=sample  ,  3=valve  region 
do  40  i=l, 11 
do  40  j=l,ml 
isolid(i, j)=0 
il=isbeg-l 

if ( i. le.il. and. j .ge. jhlbeg. and. j . le. jhuend) then 
isolid(i, j ) =1 
end  if 
i2=isend+l 

if (i .ge. i2 .and. j .ge. jhlbeg. and. j . le. jhuend) then 
isolid (i , j ) =1 
end  if 

if (i .ge. isbeg. and. i.le. isend. and. j .ge. jsbeg. and. j .le. 

1 jsend) then 
isolid (i, j ) =2 
end  if 

xsolid (i, j ) =1 . *isolid(i, j ) 

40  continue 
RETURN 

£**************************************************** 

30  return 

entry  flwchekl 

c*****cheCk  mass  flows  coming  in  on  top  and  bottom 
c*****bottom  coming  in 
xmassbi=0 .0 
dcboti=0 .0 
do  326  j=2,jhlbeg-l 
rhot =rhov ( 1 , j ) +rhoair ( 1 , j ) 
xmassbi=xmassbi+rhot*u (2 , j ) *ycv ( j ) 
dcbo t i =dcbo t i +rhov ( 1 , j ) *y c v ( j ) 

326  continue 

dcbot i =dcbot i /due t h 
c ***** 1 0p  coming  in 
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xmassti=0 . 0 

dctopi=0 . 0 

do  327  j=jhuend+l,m2 

rhot=rhov  ( 1 ,  j )  +rhoair  ( 1 ,  j  ) 

xmassti=xmassti+rhot*u (2 , j ) *ycv ( j ) 

dctopi=dctopi+rhov ( 1 , j ) *ycv ( j ) 

327  continue 

dctopi=dctopi/ducth 

c***** incoming  in  sample  holder  region  (should  be  0) 
xmasssi=0 . 0 
dcssi=0 . 0 

do  341  j=jhlbeg, jhuend 
rhot =rhov ( 1 , j ) +rhoair ( 1 , j ) 
xmasssi=xmasssi+rhot*u (2  #  j ) *ycv ( j ) 
dcssi=dcssi+rhov(l, j )  *ycv( j ) 

341  continue 

c***** total  mass  entering  at  left  hand  side  entrance 
xt  o t in=xmas  sbi +xmas  s  t i +xmas  s  s i 

C*****cheCk  mass  flow  crossing  the  sample  due  to  convection 

c*****convcte  j_s  a^r  pius  vapor 

c*****convct  j_s  aj>r  (nitrogen)  only 
convct=0 .d0 
convcte=0 .d0 

jcent=jsbeg+ ( jsend- jsbeg+1) /2 
do  351  i=isbeg, isend 
jcent2=jcent+l 
rhot =rhoair ( i , j  cent ) 

convct=convct+rhot*v(i, jcent2) *xcv(i) 
rhote=rhov ( i , j  cent ) +rhoair ( i , j cent ) 
convcte=convct e+rhote*v ( i , j cent 2 ) *xcv ( i ) 

351  continue 

c*****flow  in  top  exit  portion 
f loutt=0 .d0 
do  3001  j=jhuend+l,m2 
lmid=ihend-3 
rhot=rhoair (lrnid,  j ) 

f loutt=f loutt+rhot*u (lmid+1, j ) *ycv ( j ) 

3001  continue 

c*****floW  in  middle  of  bottom  exit  portion 
f loutb=0 .d0 
do  3002  j=2/jhlbeg-l 
rhot=rhoair (lmid, j ) 

floutb=f loutb+rhot*u (lmid+1, j ) *ycv( j ) 

3002  continue 

C*****check  mass  flows  going  out  on  top  and  bottom 
lmid=ihend-3 
lm3  =  lmid+l 
xmassso=0 . 0 
dcsso=0 . 0 

do  340  j=jhlbeg, jhuend 

rhot =rhov ( lm3 , j ) +rhoair ( lm3 , j ) 


231 


xmassso=xmassso+rhot*u (Imid, j ) *ycv  ( j ) 
dcsso=dcsso+rhov(lin3 ,  j ) 

340  continue 

xmassbo=0 . 0 

dcboto=0.0 

vapmidt=0.0 

do  328  j =2 , jhlbeg-1 

rhot =rhov ( lm3 , j ) +rhoair ( lm3 , j ) 

xmassbo=xmassbo+rhot*u (lmid,  j )  *ycv(  j ) 

vapmidt=vapmidt+rhov(lm3 ,  j )  *u  (lmid,  j  )  *ycv(  j  ) 

dcboto=dcboto+rhov ( lm3  , j ) *ycv  ( j ) 

328  continue 
dcboto=dcboto/ducth 
xmassto=0 . 0 
dctopo=0 . 0 
vapmidb=0 . 

do  329  j=jhuend+l,m2 
rhot =rhov (lm3 , j ) +rhoair (lm3 , j ) 
xmassto=xmassto+rhot*u (lmid, j ) *ycv( j ) 
vapmidb=vapmidb+rhov  ( lm3 ,  j  )  *u  ( lmid ,  j )  *y cv  ( j  ) 
dctopo=dctopo+rhov(lm3 ,  j  )  *ycv(  j  ) 

329  continue 
dctopo=dctopo/ducth 

xtotout=xmassbo+xmassto+xmassso 

return 

entry  vaporflx 

C*****CalCUlati0ns  after  flow  has  passed  over  sample 
c*****keep  track  of  vapor  and  nitrogen  concentrations  in  flow 
rhbi=0 . 

do  3451  j=2 , jhlbeg-1 
rhbi=rhbi+rhumida ( 1 , j ) *ycv  ( j  ) 

3451  continue 
rhbi=rhbi/ducth 
rhti=0 . 

do  3452  j=jhuend+l,m2 
rhti=rhti+rhumida(l, j ) *ycv( j ) 

3452  continue 
rhti=rhti/ducth 
lmid=ihend-3 
lm3=lmid+l 
dcboto=0 . 0 
dcn2bo=0 . 0 
rhbo=0 . 
vapmidt=0 . 0 

do  3281  j=2, jhlbeg-1 

vapmidt=vapmidt+rhov  (lm3 ,  j  )  *u  (lmid,  j  )  *ycv(  j  ) 
dcbot  o=dcboto+rhov  ( lm3 ,  j  )  *ycv  ( j  ) 
rhbo=rhbo+rhumida ( lm3 , j ) *ycv ( j ) 
dcn2bo=dcn2bo+rhoair ( lm3 , j ) *y cv ( j ) 

3281  continue 

dcboto=dcboto/ducth 
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dcn2bo=dcn2bo/ducth 
rhbo=rhbo/ducth 
dctopo=0 . 0 
dcn2to=0 . 
rhto=0. 
vapmidb=0 . 

do  3291  j=jhuend+l,m2 

vapmidb=vapmidb+rhov  ( lm3 , j ) *u  ( lmid#  j  )  *ycv  ( j  ) 
dctopo=dctopo+rhov(lm3 , j ) *ycv( j ) 
dcn2to=dcn2to+rhoair  dm3 , j ) *ycv( j ) 
rhto=rhto+rhumida  ( lm3 ,  j )  *ycv  ( j  ) 

3291  continue 

dctopo=dctopo/ducth 

dcn2to=dcn2to/ducth 

rhto=rhto/ducth 

c*****Flux  and  Resistance  Calculations 
c*  *  *  * *concent rat ion  di f  f erences  ( f luxbot ) 
f luxtop=dabs (dctopi-dctopo) *xqst 
l*tint/ (273 . 15*xsample) 
f luxbot =dabs (dcboti-dcboto) *xqsb 
l*tint/ (273 . 15*xsample) 

PSATN=614 . 3D0*DEXP ( 17 . 06D0* ( (tint-273 . 15D0) 

1/ (tint-40. 25D0) ) ) 

c*****relatiVe  humidity  differences  (f luxbot la) 

f luxtopla= (rhti-rhto) *xqst*psatn*xmw/ (rgas*273 . 15*xsample) 
f luxbotla= (rhbi-rhbo) *xqsb*psatn*xmw/ (rgas*273 . 15*xsample) 
c*****alternate  concentration  differences  (fluxbot2) 
RHON20=patm*xma/ (rgas*273 .15) 

f luxtopl=rhon20*xqst* (dctopi/rhoat-dctopo/dcn2to) /xsample 
f luxbot l=rhon20*xqsb* (dcboti/rhoab-dcboto/dcn2bo) /xsample 
c*****mass  balance  (fluxvbt) 

C*****CompUter  mass  balance  (vapor  in  minus  vapor  out  on  each  side) 
f  luxvtp-xmvt  -  vapmi  d  t 
f  luxvbt  =xmvb- vapmidb 
f  luxtop2=f  luxvtp/xsample 
f  luxbot  2 = fluxvbt  /xsamp  1  e 
C****COnCentration  differences 
xmdca=dabs (dctopi-dcboti) 
xmdcb=dabs (dctopo-dcboto) 

xlgdct=dabs (xmdca-xmdcb) / (dlog (xmdca/xmdcb) ) 
c*****origi.na.l  DMPC  flux 

rtop=xlgdct/ (fluxtop+1 .d-20) 
rbot=xlgdct/ (f luxbot +1 .d-20) 
rtopr=xmdca/ (fluxtop+1 .d-20) 
rbotr=xmdca/ ( f luxbot +1. D-20) 
c*****0riginal  DMPC  flux  using  delta  r.h. 
rtopla=xlgdct/ (f luxtopla+1 .d-20) 
rbotla=xlgdct/ (f luxbotla+1 .d-20) 
rtoprla=xmdca/ (f luxtopla+1 .d-20) 
rbotrla=xmdca/ (f luxbotla+1 .D-20) 
c***** improved  DMPC  flux 

rtopl=xlgdct/ (f luxtopl+1 .d-20) 
rbotl=xlgdct/ (fluxbotl+1 .d-20) 
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rtoprl=xmdca/ (f luxtopl+1 .d-20) 
rbotrl=xmdca/ (f luxbotl+1 .D-20) 

c*****compUter  calculated  flux  based  on  mass  balance  for  water  vapor 
rtop2=xlgdct/ (fluxtop2+l .d-20) 
rbot2=xlgdct/ (fluxbot2+l .d-20) 
rtopr2=xmdca/ (f luxtop2+l .d-20) 
rbotr2=xmdca/ (f luxbot2+l .D-20) 

c*****pressure  <^r0p  across  sample 
dpsamp=p ( icent ,  m2 )  -p  ( icent , 2 ) 

c*****vap0r  fluxes  another  way 
xmn2out=0. 
xmvout=0. 
do  8110  j=2,m2 

xmn2out=xmn2out+rhoair (11,  j ) *u (12, j )  *ycv(  j  ) 
xmvout=xmvout+rhov(ll,  j ) *u (12, j )  *ycv(  j ) 

8110  continue 

vapor in=xmvt +xmvb 
avapou  t  =vapmi  dt  +vapmi  db 
vapdiff=dabs (vapor in-xmvout) /vaporin 
xmn2  in=xmn2 1 +xmn2b 
errn2=dabs (xmn2in-xmn2out ) /xmn2in 

C*****Print  out  values  every  nprint  iteration  for  steady-state 
if (lsteady) then 

open (unit=l 0 , access= ' append ' , f ile=dataf ile2 ) 
write ( 10 , 8197 ) time , rbot 1 , dpsamp, f luxbot , f luxbotl 
close (10) 

8197  format (5el3. 4) 
else 

print  *,'mass  fluxes,  top  and  bottom, original  DPMC' 
write (*,3334) fluxtop, fluxbot 

print  *, 'fluxes,  top  and  bottom,  original  based  on  r.h.' 

write (* , 3334) f luxtopla, f luxbotla 

print  *, 'Improved  DMPC  calculation  for  fluxes' 

write (*,3334) fluxtop2, fluxbot2 

print*, ' fluxtop, fluxbot  computer  mass  flow  balance' 

write (*,3334) fluxvtp, fluxvbt 

print  * , ' xmvt , xmvb , vapmidt , vapmidb ' 

write (*,3336) xmvt , xmvb, vapmidt , vapmidb 

3334  format (2el5. 4) 

3335  format (3el5 .4) 

3336  format (4el5 .4) 

3337  format (5el5.4) 
print  *,  *  ' 

print  *, 'Original  DMPC,  Improved  DMPC,  computer  mass  balance' 

print  *,'top  lgm  resistance,  bottom  Igm  resistance' 

write (*,3334 )rtop, rbot 

write ( * , 3334 ) rtopl , rbotl 

write (*,3334) rtop2,rbot2 

print  *,'top  resistance,  bottom  resistance' 
write (*,3334) rtopr,rbotr 
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write (*,3334) rtoprl,rbotrl 
write (*,3334) rt opr2 , rbotr2 
print  *,  '  ' 

print  *, 'total  water  vapor  in  xmvt+xmvb, total  out,' 

print  *, 'total  out  after  sample  total, and  error  (percent  out-in)' 

write  (*,3336) vapor in , xmvout , avapout , vapdi f f 

print  *, 'total  nitrogen  in  xmn2t+xmn2b, total  out, error  n2 1 

wr i te ( * , 33 3 5 ) xran2 in , xmn2out , errn2 

print  *, 'humidity, vapor  density,  temperature  in  sample' 

write (*,3335) rhumida ( icent , j  cent )  ,  rhov ( icent , j  cent ) , t ( icent , j  cent ) 

print  *, 'humidity  outlets,  top  and  bottom' 

write (*,3334) rhto,rhbo 

end  if 

return 

entry  flwchek2 

c*****check  mass  flows  coming  in  on  top  and  bottom 
xmlt=0 . 0 
1st 1=1 
lst2=lstl+l 
do  3126  j=2 , jhlbeg-1 

xmlt=xmlt+ (rhoair (lstl, j ) +rhov(lstl, j ) ) *u (lst2 , j ) *ycv(  j ) 

3126  continue 
xm2t=0.0 
lstl=isbeg-3 
lst2=lstl+l 

do  3127  j =2, jhlbeg-1 

xm2t=xm2t+ (rhoair (lstl , j ) +rhov(lstl, j ) ) *u (lst2, j ) *ycv(  j ) 

3127  continue 
xm3t=0 . 0 
lstl=isend+3 
lst2=lstl+l 

do  3128  j =2, jhlbeg-1 

xm3t=xm3t+ (rhoair (lstl , j ) +rhov(lstl, j ) ) *u (lst2 , j ) *ycv(  j ) 

3128  continue 
xm4t=0 . 0 
lstl=ihend-3 
lst2=lstl+l 

do  3129  j=2, jhlbeg-1 

xm4t=xm4t+ (rhoair (lstl, j ) +rhov(lstl, j ) ) *u (lst2 , j ) *ycv(  j ) 

3129  continue 
xm5t=0 . 0 

do  3130  j=2, jhlbeg-1 

xm5t=xm5t+ (rhoair (11, j ) +rhov(ll, j ) ) *u (12 , j ) *ycv  ( j ) 

3130  continue 
xmltt=0 . 0 
1st 1=1 
lst2=lstl+l 

do  3131  j=jhuend+l,m2 

xmltt=xmltt+ (rhoair (lstl, j ) +rhov(lstl , j ) ) *u (lst2 , j ) *ycv(  j ) 

3131  continue 
xm2tt=0 . 0 
lstl=isbeg-3 
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Ist2=lstl+1 

do  3132  j=jhuend+l,m2 

xm2tt=xm2tt+ (rhoair (lstl, j ) +rhov(lstl, j ) ) *u (lst2/ j ) *ycv( j  ) 

3132  continue 
xm3tt=0 . 0 
lstl=isend+3 
lst2=lstl+l 

do  3133  j=jhuend+l,m2 

xm3tt=xm3tt+ (rhoair (lstl, j ) +rhov(lstl, j ) ) *u  (lst2, j ) *ycv( j ) 

3133  continue 
xm4tt=0 . 0 
lstl=ihend-3 
lst2=lstl+l 

do  3134  j=jhuend+l,m2 

xm4tt=xm4tt+ (rhoair (lstl, j ) +rhov(lstl, j ) ) *u (lst2, j ) *ycv( j ) 

3134  continue 
xm5tt=0 . 0 

do  3135  j=jhuend+l,m2 

xm5tt=xm5tt+ (rhoair (11 , j ) +rhov (11, j ) ) *u  (12 , j ) *ycv( j ) 

3135  continue 

3333  format (5el5 . 6) 

xmlttt=xrnlt+xmltt 
xm2ttt=xm2t+xm2tt 
xm3 1 1 1 =xm3 1 +xm3 1 1 
xm4ttt=xm4t+xm4tt 
xm5ttt= (xm5t+xm5tt) 


convctl=xmassto-xmassti 
convct2=xmassbo-xmassbi 
flowerr=dabs ( (convcte-convctl) /convctl) 

C*****CalCUlate  relative  humidity  at  bottom  exiting  stream 
rhbo=0 . 

Im31=12-1 

do  3812  j=2, jhlbeg^l 
rhbo=rhbo+rhumida ( lm3 1 , j ) *y cv ( j ) 

3812  continue 

rhbo=rhbo/ducth 

calculate  pressure  difference  across  sample 
dpsamp=p (icent ,m2 ) -p (icent ,2) 
dpsamp2=dpsamp*l . 45d-4 
dpsamp3=dpsamp*13 . 6*2 . 953d-4 
dpsamp=dabs (dpsamp) 

c*****CaiCUlate  apparent  convective  flow  properties 
dpsample=p (icent , jsend+3 ) -p (icent , jsbeg-3 ) 
ykcalc=v ( icent , j  cent ) *amu*y sample/dpsample 

c  *  *  *  * *nondimens ional  flow  res i s  t anc  es 

c*****rCalc  is  from  equation,  rcalc2  is  from  actual  flows 
rcalc2=rddry*thick/ykcalc 
rcalc=rddry *rkdarcy ( icent , j  cent ) 
dpsampl=p (icent , jcent ) -p (icent , jcent-1) 
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ykcalcl=v(icent, jcent) *amu*ydif ( jcent) /dpsampl 


c***** record  temperatures  at  different  locations  in  sample 
jsl=jsbeg-l 
jsen=jsend+l 

tlcnt=t (isbeg+2, jcent) -tint 
t2cnt=t (icent , jcent ) -tint 
t3cnt=t (isend-2, jcent) -tint 

if (lsteady) then 

open (unit =10,access=' append' , f ile=dataf ilel) 
write ( 1 0 , 8  9  8 )  t ime , dpsamp , rhbo , ykcalc , rcalc2 , pinch 
write (* , 898) t ime , dpsamp , rhbo , ykcalc , rcalc2 , pinch 
close (10) 

open ( uni t = 1 0 , acces  s  = ' append ' ,  f  i  1  e =dataf i 1 e4 ) 
write (10,898) t ime, t lent , t2cnt , t3cnt , xmdot ( icent , j  cent ) , 
lrhumida (icent , j  cent ) 

c  write (*,898) time , dpsamp , rhbo , ykcalc , rcalc2 , pinch 

close (10) 

898  format (6el2 .5) 
else 

print  *, 'total  mass  flows  at  diff.  stations  (top)' 
write ( * , 3333 ) xmltt , xm2tt , xm3 tt , xm4tt , xmBtt 
print  *, 'total  mass  flows  at  diff.  stations (bot) ' 
write (* , 3333 ) xmlt ,xm2t ,xm3t ,xm4t ,xm5t 
print  *, 'total  mass  flows  at  diff.  stations' 
write ( * , 3333 ) xmlttt , xm2ttt , xm3ttt , xm4ttt , xm5ttt 
print  *,  '  ' 

print  *, 'mass  flow  across  sample (convct) , calc . (top, bot ), error ' 

write (*,3336) convcte, convct 1 , convct2 , f lowerr 

print  *, 'delta  p  at  sample, Pa, psi, inches  of  H20' 

write (*,3335) dpsamp , dpsamp2 , dpsamp3 

print  *, 'calculated  permeability , input  permeability' 

print  * ,ykcalcl ,ykdarc 

print  *, 'calculated  resistance,  rdry  and  rwet' 
print  *,rcalc2,rcalc,rddry,rdwet 
end  if 

c  if ( f lowerr . It . 1 . d-5 ) then 

c  last=iter 

c  end  if 

897  format (il0,3el2.4) 
return 

entry  mcrogrfx 

C*****THIS  IS  ROUTINE  FOR  MICROGRAPHICS  PLOTS 
c  do  1183  j 5=1, ml 

c  do  1183  i5=l, 11 

c  isolid (i5, j5) =0 

c  if ( j  5 . le . jhuend . and . j  5 . ge . jhlbeg . and . 

c  li5 . It . isbeg) then 

c  isolid(i5, j  5 ) =1 

c  end  if 
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c  if ( j  5 . le . jhuend . and .  j  5 . ge . jhlbeg .and . 

c  li5 . gt . isend . and . i5 . le . ihend) then 

c  isolid (i5, j5) =1 

c  end  if 

c  1183  continue 

do  1192  j5=l,nfp3 
kplot ( j  5 ) =0 
1192  continue 

open (unit=8 , f ile=dataf ile3 ) 

kplot (1)=1 

kplot (2) =1 

kplot (3) =1 

kplot (4) =1 

kplot (5) =1 

kplot (6) =1 

kplot (7) =1 

kplot (8) =1 

kplot (9) =1 

kplot (10) =1 

kplot (11) =1 

kplot (12) =1 

kplot (13) =1 

kplot (14) =1 

kplot (15) =1 

kplot (16) =1 

kplot (17) =1 

kplot (18) =1 

kplot (19) =1 

kplot (20) =1 

ione=0 

itwo=0 

ithree=l 

write (8 ,116) ione, itwo 
write (8, 114) ithree 

116  format (2i5) 

114  format ( ±5 ) 
kgraf=2 

kflow=2*kgraf-l 
write (8 , 110) header 

110  format (a64) 

write  (8,  111)  kf low,  ll,ml#nfmax,mode#  (kplot  (i)  ,  i=l,nfmax) 

111  format (16i5) 
iblok=0 

if (kgraf .eq.2) then 

do  150  j -2 , m2 

do  150  i=2 , 12 

if (isolid(i,j ) ,eq.l)then 

iblok=l 

goto  151 

endif 

150  continue 

151  continue 

write (8,111) iblok 
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endif 

write (8, 112) (title(n) ,n=l,nfmax) 

112  format (4A18) 

113  format (6el2. 5) 

do  156  11=1,11 

c  print  *,il,x(il) ,xu(il) 

156  continue 

do  157  jl=l,ml 

c  print  *,  jl,y (jl)  ,yv(jl)  ,r(jl) 

157  continue 

write (8 ,113) (x(i) , i=l , 11) , (y ( j ) , j=l,ml) , (xu (i) , i=2 , 11) 
1/  (yv(j) , j=2,ml)  ,  (r  (j)  ,3=1,1111) 
do  169  n=l,nfmax 
if (kplot (n) .ne. 0) then 
write (8, 113) ( (f (i, j ,n) , i=l, 11) , j=l,ml) 
endif 

169  continue 

if (iblok.eq.l) then 

write (8, 111) ( ( isolid (i,j) , i=l,ll)  ,  j=l,ml) 

endif 

close (8) 

return 

ENTRY  TIMESTEP 
DT=1 -DO 

c  nprint=10 

eps (1) =1 .d-2 
eps (2) =1 .d-2 
eps (3) =1. d-2 
eps  (4)  =1  .d-2 
EPS (5) =1 .D-2 
EPS (6) =1 .D-2 
JLAST=10000 
LAST=7 00000 

lsteady=.true. 
rf=rf 1 
relax(5) =.9 
relax  (6)  =  .9 

c*****CalCUlate  relative  humidity  at  bottom  exiting  stream 
rhbo=0 . 

Im31=12-1 

do  3811  j=2,jhlbeg-l 
rhbo=rhbo+rhumida ( lm3 1 , j ) *y cv ( j ) 

3811  continue 

rhbo=rhbo/ducth 

c*****CalCUlate  pressure  difference  across  sample 
dpsamp=p ( icent , m2 ) -p ( icent , 2 ) 
dpsamp2=dpsamp*l . 45d-4 
dpsamp3=dpsamp*13 .6*2 .953d-4 
dpsamp=dabs (dpsamp) 
rcalc=rddry *rkdarcy ( icent , j  cent ) 
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c***** calculate  apparent  convective  flow  properties 
dpsample=p ( icent , j  send+3 ) -p ( icent , j  sbeg-3 ) 
ykcalc=v (icent , j  cent ) *amu*ysample/dpsample 
c*****nondiInensional  flow  resistances 

c*****rcalc  is  from  equation,  rcalc2  is  from  actual  flows 
rcalc2=rddry*thick/ykcalc 
rcalc=rddry *rkdarcy ( icent , j  cent ) 
dpsampl=p (icent , j cent ) -p (icent , j cent -1) 
ykcalcl=v (icent, jcent) *amu*ydif ( jcent ) /dpsampl 


if (time.eq. 2 000) then 
pinch=.10 

open (unit=10 , access= ' append ' , f ile=dataf ile5 ) 
write (10,8978) dpsamp, rhbo , rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 4000) then 
pinch=.20 

open (unit=10 , access  = ' append ' , f ile=dataf ile5 ) 
write (10, 8978 ) dpsamp, rhbo , rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 6000) then 
pinch=.30 

open (unit =10 , access =' append' , f ile=dataf ile5) 
write (10,8978) dpsamp , rhbo , rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 8000) then 
pinch=.40 

open (unit=10, access=' append' , f ile=dataf ile5) 
write (10,8978) dpsamp , rhbo , rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 10000) then 
pinch=. 50 

open (unit=10 , access= ' append' , f ile=dataf ile5 ) 
write (10, 8978) dpsamp, rhbo, rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 12000) then 
pinch=. 60 

open (unit=l 0 , access= ' append ' , f ile=dataf ile5 ) 
write (10, 897 8) dpsamp, rhbo, rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 
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if (time.eq. 14000) then 
pinch=.80 

open (unit=10,access= 'append' , f ile=datafile5) 
write (10 , 8978 ) dpsamp , rhbo, rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 16000) then 
pinch=.90 

open (unit=10,access= 'append' , f ile=dataf ile5) 
write  (10, 8978)  dpsamp, rhbo,  rcalc2  , ykcalc 
close  (10) 
iter=1000 
end  if 

if (time.eq. 18000) then 
pinch=l . 014 

open ( uni t=10, access= 'append' , f ile=datafile5) 
write (10, 8978) dpsamp, rhbo, rcalc2 ,ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 2 00 00 . ) then 
pinch=l . 1 

open (unit=10,access= 'append' , f ile=dataf ile5) 
write  (10,8978) dpsamp , rhbo , rcalc2 , ykcalc 
8978  format (4el2. 5) 
close (10) 
iter=1000 
end  if 

if (time.eq. 22 000 . ) then 
pinch=l .2 

open (unit=10, access= 'append' , f ile=dataf ile5) 
write (10, 8978) dpsamp, rhbo, rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 24 000. ) then 
pinch=l .3 

open (unit =10 , access= 'append' , f ile=dataf ile5) 
write (10, 8978) dpsamp, rhbo, rcalc2, ykcalc 
close  (10) 
iter=1000 
end  if 

if ( time.eq. 26000 . ) then 
pinch=l .4 

open (unit =10 , access = 'append' , f ile=dataf ile5) 
write(10,8978) dpsamp , rhbo , rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time. eq. 28000 . )then 
pinch=l . 5 

open ( uni t = 10,access=' append ' , f i 1 e=dat af i 1 e5 ) 
write (10, 8978) dpsamp, rhbo, rcalc2 , ykcalc 
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close (10) 
iter=1000 
end  if 

if (time.eq. 3 0000 . ) then 
pinch=1.6 

open (unit=10 , access= ' append ' , f ile=dataf ileS ) 
write ( 10 , 8978 ) dpsamp , rhbo , rcalc2  , ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 32 000 . ) then 
pinch=l .7 

open (unit=10 , access= 9  append ' , f ile=dataf ile5 ) 
write (10,8978) dpsamp , rhbo , rcalc2 , ykcalc 
close (10) 
iter=1000 
end  if 

if (time. eq. 34000 . ) then 
pinch=l .8 

open (unit=10, access=' append' , f ile=dataf ile5) 
write (10,8978) dpsamp , rhbo , rcalc2 ,  ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq.36000 . ) then 
pinch=l .9 

open (unit=10, access^ 'append' , f ile=dataf ile5) 
write (10,8978) dpsamp , rhbo, rcalc2 ,  ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq.38000 . ) then 
pinch=l .95 

open (unit=10,access= 'append' , f ile=dataf ile5) 
write (10, 897 8) dpsamp, rhbo ,rcalc2,  ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 40000) then 
pinch=2 . 0 

open (unit=10, access= 'append' , f ile=dataf ile5) 
write (10,8978) dpsamp, rhbo, rcalc2 ,  ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 42 000) then 
pinch=2 .05 

open (unit=10,access=' append' , f ile=dataf ile5) 
write (10, 8978) dpsamp, rhbo, rcalc2 ,  ykcalc 
close (10) 
iter=1000 
end  if 

if (time.eq. 44000) then 
pinch=2 .10 
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open (unit=10,access=' append" , f ile=dataf ile5) 
write (10 , 8978) dpsamp, rhbo, rcalc2 ,ykcalc 
close (10) 
iter=1000 
end  if 

if (time.gt .46000 . ) then 

last=iter 

iter=last 

end  if 

RETURN 

end 
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Main  Program  -  EXPONENT.F 


c - 

C  -  THIS  IS  THE  SIMPLEC  PROGRAM  - 

C 

C  -  This  version  can  handle  mass  source  term  — 
C  and  unsteady  situation 

c 

c - 

C -  This  Program  is  made  unsteady  - 

C -  ON  - 

C -  January  25,  1993  - 

C 

C - Revised  October,  1994 - 

C - to  include  the  exponential  scheme — 

c  - 

PROGRAM  MAIN 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
LOGICAL  LSTOP , LSTEADY 
COMMON/CNTL /LSTOP, LSTEADY, LSCHEME 
CALL  DEFALT 
CALL  GRID 
CALL  SETUP 1 
CALL  START 
CALL  UNSTDY 
10  CALL  DENSE 
CALL  BOUND 
CALL  OUTPUT 
IF (LSTOP)  STOP 
CALL  SETUP2 
GO  TO  10 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  DIFLOW 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
COMMON/COEF/FLOW,  DIFF ,  ACOF 
£*** *************************** ************* 
ACOF=DIFF 

IF (FLOW.EQ. 0 . )  RETURN 
TEMP=DIFF-DABS (FLOW) *0.1 
ACOF=0 . 

IF (TEMP .LE. 0 . )  RETURN 

TEMP=TEMP/DIFF 

ACOF=DIFF*TEMP**5 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCC 
SUBROUTINE  SOLVE 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
c** ***************************** ************ 
CHARACTER  TITLE*18 
CHARACTER  DATAFILE* 60 

LOGICAL  L SOLVE , LPRINT, LBLK, LSTOP, LSTEADY 
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PARAMETER  ( ID=3 0 0 , JD=3 0 0 , NFD=2 0 , NFP3  =23 , MI J=3  00 ) 

COMMON  F (ID, JD,NFD) ,RHO(ID, JD) , GAM ( ID , JD ) , CON (ID, JD)  , 

1  AIP(ID, JD) , AIM (ID, JD) ,AJP(ID, JD) ,AJM(ID, JD) ,AP(ID,  JD)  , 

2  X (ID) , XU (ID) , XDIF (ID) ,XCV(ID) ,XCVS(ID) , 

3  Y ( JD) , YV (JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) ,rhol(id, jd)  , 

4  YCVR(JD) , YCVRS (JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R ( JD) , RMN ( JD) ,SX(JD) ,SXMN(JD) ,XCVI(ID) ,XCVIP(ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV ( JD) , FVP ( JD) , 

1  FX (ID) , FXM (ID) , FY ( JD) , FYM(JD) , PT (MIJ) ,QT(MIJ) 

COMMON/ INDX/NF , NFMIN, NFMAX , NP , NRHO , NGAM , LI , L2 , L3 ,  Ml ,  M2 ,  M3  , 
1IST,  JST,  ITER,  JITER,  LAST, TITLE  (NFP3 )  ,  RELAX  (NFP3 )  , TIME, DT, XL,  YL , 
2IPREF, JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) ,  MODE , 

3NTIMES (NFP3 ) , RHOCON 

DIMENSION  D  (MIJ)  ,  VAR  (MIJ)  ,VARM(MIJ)  ,VARP(MIJ)  ,PHIBAR(MIJ) 

Q* ***************************************************************** 

c  print  *,nf 

ISTF=IST-1 
JSTF=JST-1 
IT1=L2+IST 
IT2=L3+IST 
JT1=M2+JST 
JT2=M3+JST 

C - 

NTIMER=NTIMES (NF) 

DO  999  NT=1,NTIMER 
DO  391  N=NF,NF 
IF( .NOT. LBLK (NF) )  GO  TO  60 
C - 

C-  COME  HERE  TO  DO  BLOCK  CORRECTION 

C - 

C-  SUMMING  IN  I  DIRECTION 

C - 

DO  22  J=JST,M2 
VAR ( J) =0 . 

VARP ( J) =0 . 

VARM ( J) =0 . 

D ( J) =0 . 

DO  33  I=IST,L2 

VAR ( J) =VAR ( J) +AP (I , J) 

IF (I .NE. 1ST)  VAR ( J ) =VAR ( J ) -AIM ( I , J ) 

IF (I .NE.L2)  VAR ( J ) =VAR ( J ) - AI P ( I , J ) 

VARM ( J) =VARM ( J) +AJM ( I , J) 

VARP ( J) =VARP ( J) +AJP ( I , J) 

D ( J) =D ( J) +CON (I , J) +AIP (I , J) *F (1+1 , J,N) +AIM(I , J) * 

1F(I-1, J,N)+AJP(I, J) *F(I, J+1,N)+AJM(I, J) *F(I, J-1,N)  - 
2AP(I, J) *F (I , J,N) 

33  CONTINUE 
22  CONTINUE 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) )  VAR(4)=1. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARP(4)=0. 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARM(4)=0. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  D(4)=0. 

PHIBAR (Ml ) =0 . 

PHIBAR ( JSTF) =0 . 
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PT ( JSTF) =0 . 

QT (JSTF) =PHIBAR (JSTF) 

DO  44  J=JST,M2 

DENOM=VAR ( J) -PT (J-l) *VARM(J) 

PT ( J) =VARP ( J) / (DENOM) 

TEMP=D ( J) 

QT ( J) = ( TEMP+VARM ( J ) *QT ( J-l ) ) / (DENOM) 

44  CONTINUE 

DO  45  JJ=JST,M2 
J=JT1-JJ 

4  5  PHIBAR ( J ) =PHIBAR ( J+l ) *  PT ( J ) +QT ( J ) 

DO  47  I=IST, L2 
DO  47  J=JST,M2 

47  F  (I,  J,N)  =F  (I ,  J, N)  +PHIBAR ( J) 

C - 

C  SUMMING  IN  J  DIRECTION 
C - 

c 

DO  51  I=IST,L2 
VAR (I) =0 . 

VARP (I) =0 . 

VARM(I) =0 . 

D ( I) =0 . 

DO  53  J=JST,M2 

VAR  (I)  =VAR  ( I)  +AP  ( I ,  J) 

IF(J.NE.JST)  VAR ( I ) =VAR ( I ) - AJM ( I , J ) 

IF (J.NE.M2 )  VAR ( I ) =VAR ( I ) - AJP ( I ,  J ) 

VARP ( I ) =VARP ( I ) +AIP (I , J) 

VARM ( I ) =VARM ( I ) +AIM ( I , J ) 

D (I) =D (I) +CON (I , J) +AIP (I , J) *F (I+1,J,N) + 

1AIM(I, J) *F (1-1, J,N) +AJP (I, J) *F (I, J+1,N)  +AJM(I, J) * 
2F (I, J-1,N) - AP ( I ,  J ) *F (I , J, N) 

53  CONTINUE 
51  CONTINUE 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VAR(4)=1. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARP (4) =0. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARM(4)=0. 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) )  D(4)=0. 

PHIBAR (LI) =0. 

PHIBAR (ISTF)=0. 

PT (ISTF) =0 . 

QT ( ISTF) =PHIBAR ( ISTF) 

DO  57  I=IST, L2 

DENOM=VAR ( I ) -PT ( 1-1 ) *VARM ( I ) 

PT ( I) =VARP (I) / (DENOM) 

TEMP=D ( I ) 

QT(I)=(TEMP+QT(I-1) *VARM(I) ) / (DENOM) 

57  CONTINUE 

DO  58  II=IST, L2 
I=IT1-II 

5 8  PHIBAR ( I ) =PHIBAR (I+1)*PT(I)+QT(I) 

DO  59  I=IST,L2 

DO  59  J=JST,M2 

59  F ( I , J , N) =F ( I , J , N) +PHIBAR ( I ) 
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60  CONTINUE 


C -  TDMA  - 

DO  90  J= JST , M2 
PT(ISTF) =0 . 

QT(ISTF) =F (ISTF, J,N) 

DO  70  I=IST, L2 

DENOM=AP ( I , J ) -PT(I-l) *AIM(I, J) 

PT(I) =AIP (I, J) / (DENOM) 

TEMP=CON { I ,  J) +AJP ( I , J) *F (I, J+l ,N) +AJM ( I, J) *F (I , J-l ,N) 
QT ( I ) = ( TEMP+AIM ( I , J ) *QT ( I - 1 ) ) / ( DENOM) 

70  CONTINUE 

DO  80  II=IST, L2 
I=IT1-II 

80  F(I,J,N)=F(I+1,J,N) *PT (I) +QT (I) 

90  CONTINUE 


DO  190  JJ=JST,M3 
J=JT2-JJ 
PT(ISTF) =0. 

QT (ISTF) =F (ISTF ,  J ,  N) 

DO  170  I=IST,L2 

DENOM=AP ( I , J ) -PT(I-l) *AIM (I , J) 

PT(I)=AIP(I, J)/ (DENOM) 

TEMP=CON(I, J) +AJP(I, J) *F (I, J+l ,N) +AJM (I , J) *F(I, J-1,N) 
QT ( I ) = (TEMP+AIM ( I , J) *QT ( 1-1) ) / (DENOM) 

170  CONTINUE 

DO  180  II=IST, L2 
I=IT1-II 

180  F(I, J,N) =F (1+1, J,N) *PT(I)+QT(I) 

190  CONTINUE 


DO  290  I=IST,L2 
PT ( JSTF) =0 . 

QT ( JSTF) =F (I , JSTF, N) 

DO  270  J=JST,M2 

DENOM=AP ( I , J) -PT ( J-l ) *AJM ( I , J) 

PT  (J)  =AJP  (I,  J)  /  (DENOM) 

TEMP=CON ( I , J ) +AIP (I, J) *F (1+1 , J,N) +AIM ( I, J) *F (1-1, J,N) 
QT ( J)  =  ( TEMP+AJM  ( I , J ) *QT(J-1) ) / (DENOM) 

270  CONTINUE 

DO  280  JJ=JST,M2 
J=JT1-JJ 

280  F(I,J,N)=F(I,J+1,N) *PT ( J) +QT(J) 

290  CONTINUE 


DO  390  II=IST,L3 

I=IT2-II 

PT ( JSTF) =0 . 

QT (JSTF ) =F(I, JSTF , N ) 

DO  370  J=JST,M2 

DENOM=AP (I, J) -PT(J-l) * AJM (I , J) 

PT(J) =AJP (I, J) / (DENOM) 

TEMP=CON(I, J) +AIP(I, J) *F (1+1 , J,N) +AIM ( I, J) *F(I-1, J,N) 
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QT ( J) = (TEMP+AJM ( I , J) *QT(J-1) ) / (DENOM) 

370  CONTINUE 

DO  380  JJ=JST,M2 
J=JT1-JJ 

380  F(I,J,N)=F(I,J+1,N) *PT ( J) +QT ( J) 

390  CONTINUE 

391  CONTINUE 

q******************************************* 

999  CONTINUE 
RETURN 

Q** ******************  ********** 

ENTRY  RESET 
DO  400  J=1,M1 
DO  400  1=1 , LI 
CON (I, J) =0 . 0 
AP (I, J) =0. 0 
400  CONTINUE 
RETURN 
END 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  SETUP 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q********************************************************** 

CHARACTER  TITLE* 18 
CHARACTER  DATAFILE* 60 

LOGICAL  LSOLVE, LPRINT , LBLK , LSTOP , LSTEADY 
PARAMETER  ( ID=3  0  0 , JD=3  0  0 , NFD=2 0 , NFP3 =23 , MI J=3  0  0 ) 

COMMON  F(ID, JD,NFD) ,RHO(ID, JD) , GAM(ID, JD) ,CON(ID, JD) , 

1  AIP (ID, JD) ,  AIM  (ID, JD) ,AJP(ID,JD) ,AJM(ID, JD) ,AP(ID, JD) , 

2  X ( ID) ,XU (ID) , XDIF (ID) ,XCV(ID) ,XCVS(ID) , 

3  Y ( JD) ,  YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) ,rhol(id, jd) , 

4  YCVR(JD) , YCVRS ( JD ) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R ( JD) , RMN ( JD) ,SX(JD) ,SXMN(JD) ,XCVI(ID) ,XCVIP(ID) 

COMMON  DU(ID, JD) ,DV(ID,JD) ,FV(JD) ,FVP(JD) , 

1  FX (ID) , FXM ( ID) , FY ( JD) ,FYM(JD) , PT(MIJ) ,QT(MIJ) 

COMMON/ INDX/NF , NFMIN, NFMAX , NP , NRHO , NGAM , LI , L2 , L3 , Ml , M2 , M3 , 

1 1ST , JST , ITER , JITER , LAST , TITLE (NFP3 ) , RELAX (NFP3 ) , TIME , DT , XL , YL , 
2IPREF, JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , MODE , 

3NTIMES (NFP3 ) , RHOCON 
COMMON/ CNTL/LSTOP , LSTEADY , LSCHEME 
COMMON/ SORC/SMAX, SSUM 
COMMON/ COEF/ FLOW, DIFF, ACOF 

COMMON/UNSTEDY/FOLD (ID, JD,NFD) ,FNEW(ID, JD) , JLAST , 

1  IFLAG(NFD) ,EPS(NFD) , DIFMAX, JFLAG, deltat 
COMMON / EXPNT/ ALAMBDA ( ID, JD) , FP ( ID, JD) 

DIMENSION  U(ID, JD) , V(ID, JD) , PC (ID, JD) ,P(ID, JD) 

EQUIVALENCE (F( 1,1,1) ,U (1 , 1) ) , (F (1, 1 , 2 ) , V (1 , 1) ) , (F (1, 1 , 3 ) , PC (1 , 1) ) 
EQUIVALENCE (F (1,1,4) , P (1, 1) ) 

DIMENSION  AIPNF ( ID, JD, 3 ) , AIMNF (ID, JD, 3 ) , AJPNF(ID, JD,3) , 

1AJMNF (ID, JD, 3 ) , APNF (ID, JD, 2) , CONNF ( ID, JD, 2) 

Q******************************************************************* 

1  FORMAT (//, 15X, 'COMPUTATION  IN  CARTESIAN  COORDINATES') 

2  FORMAT (//,15X, 'COMPUTATION  FOR  AXISYMMETRIC  SITUATION') 

3  FORMAT (//, 15X, 'COMPUTATION  IN  POLAR  COORDINATES') 
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4  FORMAT (14X, 40 (1H*) ,//) 


ENTRY  DEFALT 
NP=4 
NFMIN=5 
NFMAX=20 
NRHO  =NFMAX+ 1 
NGAM=NFMAX+ 2 
NCON=NFMAX+3 
LSTOP=. FALSE. 

MODE=l 

LAST=5 

TIME=0 . 0 

ITER=0 

JITER=0 

LSCHEME=1 

LSTEADY=. FALSE. 

DT=1 . 0D+20 

IPREF=1 

JPREF=1 

RHOCON=l . 0 

DO  877  IL=1,NFP3 

LSOLVE ( IL ) = . FALSE . 

LPRINT(IL) =. FALSE. 

LBLK ( IL ) = . TRUE . 

RELAX (IL) =1.0 
NTIMES (IL) =1 

877  CONTINUE 

DO  878  K=1 , NFD 
EPS (K) =1 . 0D+20 
IFLAG(K) =1 

878  CONTINUE 
RETURN 

C - 

ENTRY  SETUP1 
L2=L1-1 
L3=L2-1 
M2  =M1  - 1 
M3=M2-1 
X ( 1 ) =XU ( 2 ) 

DO  5  1=2, L2 

5  X (I)  =  0 . 5* (XU ( 1+1) +XU (I) ) 
X(L1) =XU (LI) 

Y(l) =YV (2) 

DO  10  J=2 ,M2 

10  Y(J) =0 . 5* (YV ( J+l) +YV ( J) ) 
Y  (Ml) =YV (Ml) 

DO  15  1=2, LI 
15  XDIF ( I ) =X ( I ) -X ( I - 1 ) 

DO  18  1=2,  L2 
18  XCV(I)=XU(I+1)-XU(I) 

DO  20  1=3, L2 
20  XCVS ( I ) =XDIF ( I ) 

XCVS (3 ) =XCVS (3 ) +XDIF (2 ) 
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XCVS (L2 ) =XCVS (L2 ) +XDIF (LI ) 

DO  22  1=3, L3 
XCVI  ( I ) =0 . 5*XCV ( I ) 

22  XCVIP(I)=XCVI(I) 

XCVIP (2) =XCV (2 ) 

XCVI  (L2 ) =XCV (L2 ) 

DO  35  J=2,M1 
35  YDIF ( J) =Y (J) -Y (J-l) 

DO  40  J=2 ,M2 
40  YCV ( J) =YV ( J+l ) -YV ( J) 

DO  45  J=3 ,M2 
45  YCVS ( J) =YDIF ( J) 

YCVS (3 ) =YCVS (3 ) +YDIF (2 ) 

YCVS (M2 ) =YCVS (M2 ) +YDIF (Ml ) 

IF (MODE . NE . 1 )  GO  TO  55 
DO  52  J=1 ,M1 
RMN ( J) =1 . 0 
52  R ( J) =1 . 0 
GO  TO  56 

55  DO  50  J=2 ,M1 

50  R ( J) =R (J-l) +YDIF ( J) 

RMN  (2)  =R(1) 

DO  60  J=3 ,M2 

60  RMN (J) =RMN (J-l) +YCV (J-l) 

RMN (Ml ) =R (Ml) 

56  CONTINUE 

DO  57  J=1,M1 
SX(J)=1. 

SXMN ( J) =1 . 

IF (MODE. NE. 3)  GO  TO  57 
SX ( J) =R ( J) 

IF(J.NE.l)  SXMN(J) =RMN(J) 

57  CONTINUE 

DO  62  J=2 , M2 

YCVR ( J) =R ( J) *YCV ( J) 

ARX ( J) =YCVR ( J) 

IF (MODE. NE. 3)  GO  TO  62 
ARX  ( J)  =YCV  ( J) 

62  CONTINUE 

DO  64  J=4 ,M3 

64  YCVRS ( J) =0 . 5* (R ( J) +R ( J-l) ) *YDIF ( J) 
YCVRS (3 ) =0 . 5* (R (3 ) +R (1 ) ) *YCVS (3 ) 
YCVRS (M2) =0.5* (R(M1)+R (M3) ) *YCVS(M2) 
IF (MODE. NE. 2)  GO  TO  67 

DO  65  J=3 ,M3 

ARXJ ( J) =0 . 25* ( 1 . +RMN ( J) /R(J) ) *ARX(J) 

65  ARXJP ( J) =ARX ( J) -ARXJ ( J) 

GO  TO  68 

67  DO  66  J=3 ,M3 
ARXJ ( J) =0 . 5*ARX ( J) 

66  ARXJP (J)=ARXJ(J) 

68  ARXJP ( 2 ) =ARX ( 2 ) 

ARXJ  (M2  )=  ARX  (M2) 

DO  70  J=3 , M3 
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FV (J) =ARXJP ( J) /ARX (J) 

70  FVP ( J) =1 . -FV ( J) 

DO  85  1=3, L2 

FX (I) =0 . 5*XCV (1-1) /XDIF (I) 

85  FXM ( I ) =1 . -FX ( I ) 

FX(2) =0 . 

FXM (2) =1 . 

FX (LI) =1 . 

FXM (LI) =0. 

DO  90  J=3 ,M2 

FY ( J ) =0 . 5  *YCV ( J- 1 ) / YDIF ( J) 

90  FYM ( J) =1 . -FY ( J) 

FY (2 ) =0 . 

FYM (2) =1 . 

FY (Ml ) =1 . 

FYM (Ml) =0 . 

CON, AP,U,V,RHO, PC  AND  P  ARRAYS  ARE  INITIALIZED  HERE 
DO  95  J=1,M1 
DO  95  1=1, LI 
PC(I,J)=0. 

U(I, J)=0. 

V(I, J)=0. 

CON (I, J)=0. 

AP(I, J)=0. 

RHO ( I , J ) =RHOCON 
P(I,J)=0. 

95  CONTINUE 

IF (MODE .EQ . 1)  PRINT  1 
IF (MODE. EQ. 2)  PRINT  2 
IF (MODE. EQ. 3)  PRINT  3 
PRINT  4 
RETURN 

C - 

ENTRY  SETUP2 

COEFFICIENTS  FOR  THE  U  EQUATION 
NF=1 

CALL  RESET 

IF( . NOT. L SOLVE (NF) )  GO  TO  100 
IF (LSTEADY)  IFLAG (NF) =0 
IST=3 
JST=2 

CALL  GAMSOR 

IF (RELAX (NF) .EQ. 1.0)  RELAX (NF) =0 . 9 
REL=1 . -RELAX (NF) 

DO  102  1=3, L2 

FL=XCVI ( I ) *V (1,2) *RHO (1,1) 

FLM=XCVIP (1-1) *V (1-1, 2) *RHO (1-1, 1) 

FLOW=R ( 1 ) * (FL+FLM) 

DIFF=R ( 1 ) * (XCVI ( I ) *GAM (1,1) +XCVIP ( I- 1 ) *GAM (1-1,1)) /YDIF ( 2 ) 
CALL  DIFLOW 

102  AJM (1,2) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

DO  103  J=2,M2 

FLOW=ARX ( J) *U (2, J) *RHO (1 , J) 

DIFF=ARX ( J) *GAM(1 , J) / (XCV (2 ) *SX ( J) ) 
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CALL  DIFLOW 

AIM ( 3 , J) =ACOF+DMAXl (0 . 0D0 , FLOW) 

DO  103  1=3, L2 

IF (I .EQ.L2)  GO  TO  104 

FL=U ( I , J) * (FX (I) *RHO (I , J) +FXM(I) *RHO (1-1 , J) ) 

FLP=U (1+1 , J) * (FX (1+1) *RHO ( 1+1 , J) +FXM( 1+1) *RHO (I, J) ) 

FLOW=ARX ( J) *0 . 5* (FL+FLP) 

DIFF=ARX(J) *GAM(I, J) / (XCV (I) *SX(J) ) 

GO  TO  105 

104  FLOW=ARX (J) *U (LI, J) *RHO (LI, J) 

DIFF=ARX ( J) * GAM (LI , J) / (XCV (L2 ) *SX ( J) ) 

105  CALL  DIFLOW 

AIM ( 1+ 1 , J ) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

AIP (I , J) =AIM(I+1 , J) -FLOW 
IF(J.EQ.M2)  GO  TO  106 

FL=XCVI (I)*V(I,J+1)*(FY(J+1) *RHO (I, J+l) +FYM(J+1) *RHO (I,  J) ) 
FLM=XCVIP (1-1 ) *V (1-1 , J+l) *  (FY ( J+l ) *RHO { 1-1 , J+l) +FYM (J+l) * 

1  RHO (1-1, J) ) 

GM=GAM ( I , J ) *GAM(I, J+l) / (YCV(J) *GAM(I, J+l) +YCV(J+1) *GAM(I, J)+ 

1  1 . 0D-40) *XCVI (I) 

GMM=GAM ( I - 1 , J ) *GAM(I-1, J+l) / (YCV(J) *GAM (1-1 , J+l) +YCV ( J+l) * 

1  GAM (1-1 , J) +1 . D-40 ) *XCVIP (1-1) 

DIFF=RMN (J+l) *2 . * (GM+GMM) 

GO  TO  107 

106  FL=XCVI ( I ) *V ( I , Ml ) *RHO ( I , Ml ) 

FLM=XCVIP ( I— 1 ) *V (I-1,M1) *RHO (I-1,M1) 

DIFF=R (Ml ) * (XCVI ( I ) *GAM ( I ,  Ml ) +XCVIP ( I -1 ) *GAM ( 1-1 , Ml ) ) / YDIF (Ml ) 

107  FLOW=RMN (J+l) * (FL+FLM) 

CALL  DIFLOW 

AJM  ( I , J+l ) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

AJP ( I , J) =AJM ( I , J+l ) -FLOW 
VOL=YCVR ( J ) *XCVS ( I ) 

APT= ( RHO ( I , J ) *XCVI (I) +RHO (1-1, J) *XCVIP (1-1) ) 

1/  (XCVS  (I)  *DT) 

AP ( I , J ) =AP ( I , J ) -APT 

CON (I , J) =CON ( I , J) +APT*FOLD ( I , J , NF) 

ANBR=AIP (I , J) +AIM (I , J) +AJP ( I, J) +AJM(I , J) 

AP ( I , J ) = ( ( - AP ( I , J ) *VOL)+ANBR)/ RELAX (NF) 

CON ( I , J ) =CON ( I , J ) *VOL+REL*AP ( I , J) *U(I,  J) 

DU (I, J) =VOL/ (XDIF (I) *SX(J) ) 

DU (I, J)=DU(I, J) / (AP(I, J) -ANBR) 

103  CONTINUE 

DO  110  1=1, LI 
DO  110  J=1,M1 
AIPNF (I, J, 1) =AIP (I, J) 

AIMNF  ( I ,  J ,  1 )  =AIM  ( I ,  J ) 

AJPNF ( I , J , 1 ) = A JP ( I , J ) 

AJMNF ( I , J , 1 ) = AJM ( I , J ) 

APNF ( I , J , 1 ) = AP ( I , J ) 

CONNF ( I , J , 1 ) =CON ( I , J ) 

110  CONTINUE 

C _  TEMPORARY  USE  OF  PC(I,J)  TO  STORE  UHAT  _ 

DO  151  J=2 ,M2 
DO  151  1=3, L2 
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ANBR=AIP (I , J) +AIM (I , J) +AJP (I , J) +AJM (I , J) 

BCON=CON {I, J) - (ANBR*U (I, J) ) 

PC (I, J) = (AIP (I, J) *U ( 1+1 , J) +AIM ( I , J) *U ( I - 1 , J ) +AJP ( I , J ) *U(I, J+l)+ 
1AJM(I, J) *U(I , J-l) +BCON) / (AP(I, J) -ANBR) 

151  CONTINUE 
100  CONTINUE 

COEFFICIENTS  FOR  THE  V  EQUATION - 

NF=2 

CALL  RESET 

IF ( .NOT.LSOLVE (NF) )  GO  TO  200 
IF (LSTEADY)  IFLAG(NF) =0 
IST=2 
JST=3 

CALL  GAMSOR 

IF(RELAX(NF) .EQ.1.0)  RELAX (NF) =0 . 9 
REL=1. -RELAX (NF) 

DO  202  1=2 (L2 
AREA=R ( 1 ) *XCV(I) 

FLOW = ARE A* V (1,2) *RHO (1,1) 

DIFF=AREA*GAM (1,1) /YCV(2) 

CALL  DIFLOW 

202  AJM (1,3) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

DO  203  J=3 ,M2 

FL=ARXJ ( J) *U (2 , J) *RHO (1 , J) 

FLM=ARXJP ( J-l) *U (2, J-l) *RHO (1, J-l) 

FLOW=FL+FLM 

DIFF= (ARXJ ( J) *GAM(1 , J) +ARXJP (J-l) *GAM(1, J-l) ) / (XDIF(2) *SXMN(J) ) 
CALL  DIFLOW 

AIM (2 , J) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

DO  203  1=2, L2 

IF ( I . EQ . L2 )  GO  TO  204 

FL=ARXJ ( J) *U (1+1 , J) * (FX (1+1 ) *RHO (1+1 , J) +FXM (1+1) *RHO (I , J) ) 
FLM=ARXJP (J-l) *U (1+1 , J-l ) * (FX (1+1) *RHO (1+1 , J-l) +FXM(  1+1) * 

1  RHO(I, J-l) ) 

GM=GAM ( I , J ) *GAM(I+1, J) / (XCV(I) *GAM(I+1, J) +XCV (1+1) *GAM(I, J) + 

1  l.D-40) *ARXJ(J) 

GMM=GAM(I, J-l) *GAM(I+1,J-1) / (XCV(I) *GAM(I+1, J-l) +XCV(I+1) * 

1  GAM(I, J-l)+1.0D-40) *ARXJP(J-1) 

DIFF=2 . * (GM+GMM) /SXMN(J) 

GO  TO  205 

204  FL=ARXJ ( J) *U (LI , J) *RHO (LI , J) 

FLM=ARXJP (J-l) *U(L1, J-l) *RHO(Ll, J-l) 

DIFF= (ARXJ ( J) *GAM (LI , J) +ARXJP (J-l) *GAM (LI , J-l) ) / (XDIF (LI) *SXMN(J) ) 

205  FLOW=FL+FLM 
CALL  DIFLOW 

AIM  (1+1, J) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

AIP(I, J) =AIM(I+1, J) -FLOW 
IF ( J .EQ -M2 )  GO  TO  206 
AREA=R ( J ) *XCV(I) 

FL=V (I, J) * (FY (J) *RHO (I, J) +FYM(J) *RHO (I, J-l) ) *RMN(J) 

FLP=V ( I , J+l ) * (FY ( J+l ) *RHO (I, J+l) +FYM ( J+l ) *RHO ( I , J) ) *RMN ( J+l ) 

FLOW= (FV (J) *FL+FVP ( J) *FLP) *XCV(I) 

DIFF=AREA*GAM (I , J) /YCV(J) 

GO  TO  207 
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206  AREA=R (Ml ) *XCV ( I ) 

FLOW=AREA* V ( I , Ml ) *RHO ( I , Ml ) 

D I FF = ARE  A * GAM ( I , Ml ) /YCV (M2 ) 

207  CALL  DIFLOW 

AJM (I, J+l) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

AJP (I , J) =AJM ( I , J+l ) -FLOW 
VOL=YCVRS ( J) *XCV ( I ) 

APT= (ARXJ (J) *RHO (I, J) *0.5* (SX ( J) +SXMN ( J) ) +ARXJP (J-l) *RHO (I , J-l ) * 
1  0.5* (SX (J-l) +SXMN ( J) ) ) / (YCVRS ( J) *DT) 

AP ( I , J ) = AP ( I , J ) -APT 

CON(I , J) =CON (I , J) +APT*FOLD (I, J,NF) 

ANBR=AIP (I, J) +AIM ( I , J ) +AJP ( I , J ) +AJM (I, J) 

AP ( I , J ) = ( (-AP (I, J) *VOL ) +ANBR ) /RELAX (NF) 

CON ( I , J ) =CON ( I , J ) *VOL+REL*AP ( I , J) *V(I, J) 

DV ( I , J ) =VOL/YDIF ( J ) 

DV(I, J) =DV(I, J) / (AP (I , J) -ANBR) 

203  CONTINUE 

DO  210  1=1, LI 
DO  210  J=1 ,M1 
AIPNF  (I, J, 2) =AIP (I, J) 

AIMNF ( I , J , 2 ) =AIM ( I , J ) 

AJPNF (I , J, 2) =AJP ( I , J) 

AJMNF ( I , J , 2 ) = AJM ( I , J ) 

APNF ( I , J , 2 ) =AP ( I , J ) 

CONNF ( I , J , 2 ) =CON ( I , J ) 

210  CONTINUE 
200  CONTINUE 

COEFFICIENTS  FOR  THE  PRESSURE  EQUATION _ 

NF=NP 

IFLAG (NF) =1 
CALL  RESET 

IF ( .NOT.LSOLVE (NF) )  GO  TO  500 

IST=2 

JST=2 

CALL  GAMSOR 
DO  401  J=2 , M2 
DO  401  1=2, L2 
VOL=YCVR ( J) *XCV ( I ) 

CON ( I , J ) =CON ( I , J ) * VOL 
AP ( I , J ) = - AP ( I , J ) * VOL 
401  CONTINUE 

DO  402  1=2, L2 

ARHO=R ( 1 ) *XCV ( I ) *RHO (1,1) 

CON (1,2) =CON (1,2) +ARHO*V (1,2) 

402  AJM(I, 2) =0 . 

DO  403  J=2 ,M2 
ARHO=ARX ( J) *RHO (1 , J) 

CON (2 , J) =CON (2 , J) +ARHO*U(2 , J) 

AIM(2 , J) =0 . 

DO  403  1=2, L2 

IF ( I . EQ . L2 )  GO  TO  404 

ARHO=ARX ( J) * (FX (1+1) *RHO (1+1 , J) +FXM (1+1) *RHO (I , J) ) 

FLOW=ARHO *  PC ( I + 1 , J ) 

CON (I, J) =CON ( I , J) -FLOW 
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CON ( 1+1 , J) =CON ( 1+1 , J ) +FLOW 
AIP (I, J) =ARHO*DU (1+1 , J) 

AIM(I+1 , J) =AIP (I , J) 

GO  TO  405 

404  ARHO=ARX ( J) *RHO (LI , J) 

CON ( I , J ) =CON ( I , J ) -ARHO*U (LI , J) 

AIP (I, J) =0 . 

405  IF(J.EQ.M2)  GO  TO  406 

ARHO=RMN ( J+l ) *XCV (I) * (FY ( J+l) *RHO (I, J+l) +FYM ( J+l ) *RHO ( I , J) ) 
ANBR=AI PNF ( I , J+l , 2 ) +AIMNF (I , J+l , 2 ) +AJPNF (I , J+l , 2 ) + 

1  AJMNF(I, J+l, 2) 

BCON=CONNF ( I , J+l , 2 ) - (ANBR*V ( I , J+l ) ) 

VHAT= (AIPNF (I , J+l , 2) *V(I+1, J+l) +AIMNF (I, J+l, 2) *V(I-1, J+l) + 
1AJPNF (I , J+l , 2 ) *V (I , J+2) +AJMNF (I , J+l , 2 ) *V (I, J) + 

2BCON) / (APNF ( I , J+l , 2 ) -ANBR) 

FLOW=ARHO*VHAT 
CON ( I , J) =CON ( I , J) -FLOW 
CON ( I , J+l ) =CON ( I , J+l ) +FLOW 
AJP (I, J) =ARHO*DV (I, J+l) 

AJM (I , J+l) =AJP (I , J) 

GO  TO  407 

406  ARHO=RMN (Ml ) *XCV ( I ) *RHO ( I , Ml ) 

CON ( I , J ) =CON ( I , J ) -ARHO*V ( I , Ml ) 

AJP (I , J) =0 . 

407  AP (I, J) =AIP (I , J) +AIM(I, J) +AJP (I, J) +AJM(I , J) 

403  CONTINUE 

DO  411  1=1, LI 
DO  411  J=1,M1 
AIPNF (I , J, 3 ) =AIP ( I , J) 

AIMNF (I , J, 3 ) =AIM ( I , J) 

AJPNF (I, J,3) =AJP (I, J) 

A  JMNF ( I , J , 3 ) = AJM ( I , J ) 

411  CONTINUE 

IF ( ITER . LE . 1 )  GO  TO  409 
DO  408  J=2,M2 
DO  408  1=2, L2 
AP ( I , J ) =AP ( I , J ) /RELAX (NP) 

CON (I , J) =CON (I , J) + (1 . -RELAX (NP) ) *AP(I, J) *P(I, J) 

408  CONTINUE 

409  CONTINUE 
CALL  SOLVE 

C######################################################### 

NF=1 

IST=3 

JST=2 

DO  415  1=1, LI 
DO  415  J=1,M1 
AIP (I, J) =AIPNF (I , J, 1) 

AIM ( I , J ) = AIMNF ( I , J , 1 ) 

AJP ( I , J ) =AJPNF ( I , J , 1 ) 

AJM ( I , J ) = AJMNF ( I , J , 1 ) 

AP ( I , J ) = APNF ( I , J , 1) 

CON (I, J)=CONNF(I, J,l) 

415  CONTINUE 
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DO  413  J=2 ,M2 
DO  413  1=3, L2 

ANBR=AIP ( I , J ) +AIM ( I , J ) +AJP ( I , J ) +AJM ( I , J ) 

DUI J=DU ( I , J) * ( AP ( I , J ) -ANBR) 

CON(I,  J) =CON ( I ,  J ) +DUIJ* (P (1-1 , J) -P (I( J) ) 

413  CONTINUE 
CALL  SOLVE 

C ########################################################## 

NF=2 

IST=2 

JST=3 

DO  416  1=1, LI 
DO  416  J=1 ,M1 
AIP (I , J) =AIPNF (I , J, 2 ) 

AIM (I, J)=AIMNF(I, J,2) 

AJP ( I , J ) = AJPNF ( I , J , 2 ) 

A JM ( I , J ) = A JMNF ( I , J , 2 ) 

AP ( I , J ) =APNF ( I , J , 2 ) 

CON ( I , J ) =CONNF ( I , J , 2 ) 

416  CONTINUE 

DO  414  J=3 ,M2 
DO  414  1=2, L2 

ANBR=AIP ( I , J) +AIM ( I , J) +AJP ( I , J) +AJM (I , J) 

DVIJ=DV(I, J) * (AP ( I , J) -ANBR) 

CON  (I ,  J) =CON (I , J) +DVIJ* (P (I, J-l) -P (I, J) ) 

414  CONTINUE 
CALL  SOLVE 

C################################################################# 

COEFFICIENTS  FOR  THE  PRESSURE  CORRECTION  EQUATION - 

NF=3 

CALL  RESET 

IF ( .NOT. LSOLVE (NF) )  GO  TO  500 
IF (LSTEADY)  IFLAG (NF) =0 
IST=2 
JST=2 

CALL  GAMSOR 
DO  417  J=2 ,M2 
DO  417  1=2, L2 
VOL=YCVR ( J ) *XCV ( I ) 

CON ( I , J ) =CON ( I , J) *VOL 

417  CONTINUE 

DO  418  1=1, LI 
DO  418  J= 1 , Ml 
AIP (I , J) =AIPNF (I , J, 3 ) 

AIM  ( I ,  J )  =  AIMNF  ( I ,  J ,  3  ) 

AJP (I , J) =AJPNF (I , J, 3 ) 

A  JM  ( I ,  J )  =  AJMNF  ( I ,  J ,  3  ) 

AP  (I,  J)  =AIP  (I ,  J)  +AIM  (I ,  J)  +AJP  (I ,  J)  +AJM(I ,  J) 

418  CONTINUE 
SMAX=0. 

SSUM=0 . 

DO  474  1=2, L2 

ARHO=R ( 1 ) *XCV(I) *RHO (1,1) 

474  CON (1,2) =CON (1,2) +ARHO*V (1,2) 
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DO  475  J=2,M2 
ARHO=ARX ( J) *RHO ( 1 , J) 

CON (2 , J) =CON (2 ,  J) +ARHO*U (2 , J) 

DO  475  1=2, L2 

IF ( I . EQ . L2 )  GO  TO  476 

ARHO=ARX(J) * (FX(I+1) *RHO (1+1, J) +FXM(I+1) *RHO (I, J) ) 
FLOW=ARHO*U ( 1+1 , J) 

CON ( I , J ) =CON ( I , J ) -FLOW 
CON ( 1+1 , J) =CON (1+1 , J) +FLOW 
GO  TO  477 

476  ARHO=ARX(J) *RHO(Ll, J) 

CON (I, J)=CON(I, J)-ARHO*U(Ll, J) 

477  IF (J.EQ.M2)  GO  TO  478 

ARHO=RMN ( J+l ) *XCV  (I) * (FY (J+l) *RHO (I, J+l) +FYM ( J+l ) *RHO ( I , J) ) 
FLOW=ARHO*V ( I #  J+l ) 

CON ( I , J ) =CON ( I , J ) -FLOW 
CON ( I , J+l ) =CON ( I , J+l ) +FLOW 
GO  TO  479 

478  ARHO=RMN (Ml ) *XCV ( I ) *RHO ( I , Ml ) 

CON ( I , J ) =CON (I, J) -ARHO*V ( I , Ml ) 

479  PC(I,J)=0.0 

SMAX=DMAX1 ( SMAX, DABS (CON (I, J) ) ) 

SSUM=SSUM+CON ( I , J) 

475  CONTINUE 
CALL  SOLVE 

IF (SMAX.LE.EPS (NF) )  IFLAG (NF) =1 
IF (SMAX.LE.EPS (NF) )  IFLAG (1) =1 
IF (SMAX.LE.EPS (NF) )  IFLAG (2) =1 

COME  HERE  TO  CORRECT  THE  VELOCITIES - 

DO  501  J=2 ,M2 
DO  501  1=2, L2 

IF (I .NE.2)  U ( I , J ) =U ( I , J ) +DU ( I , J ) * (PC(I-1, J)-PC(I, J) ) 
IF(J.NE.2)  V(I, J) =V (I, J) +DV (I,J)*(PC(I,J-1) -PC (I, J) ) 

501  CONTINUE 
500  CONTINUE 

COEFFICIENTS  FOR  OTHR  EQUATIONS - 

IST=2 

JST=2 

DO  600  NF=NFMIN , NFMAX 

IF ( .NOT.LSOLVE (NF) )  GO  TO  600 

IF (LSTEADY)  IFLAG (NF)=0 

CALL  RESET 

CALL  GAMSOR 

REL=1 . -RELAX (NF) 

DO  602  1=2, L2 
AREA=R ( 1 ) *XCV ( I ) 

FLOW=AREA*V (1,2) *RHO (1,1) 

DIFF=AREA*GAM (1,1) /YDIF (2 ) 

CALL  DIFLOW 

602  AJM (1,2) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

DO  603  J=2 , M2 

FLOW=ARX ( J) *U (2 , J) *RHO ( 1 , J) 

DIFF=ARX(J)*GAM(1,J) / (XDIF (2 ) *SX ( J) ) 

CALL  DIFLOW 
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AIM (2 , J) = AC OF +DMAX 1 ( 0 . 0D0 , FLOW) 

DO  603  1=2, L2 
IF(I.EQ.L2)  GO  TO  604 

FLOW=ARX(J) *U(I+1, J) * (FX(I+1) *RHO (1+1 , J) +FXM(I+1) *RHO (I, J) ) 
DIFF=ARX ( J) *2 . *GAM ( I , J ) *GAM(I+1, J) / ( (XCV(I) *GAM(I+1, J)+ 

1  XCV(I+1) *GAM (I , J) +1 . 0D-40) *SX(J) ) 

GO  TO  605 

604  FLOW=ARX ( J) *U (LI , J) *RHO (LI , J) 

DIFF=ARX ( J) *GAM(L1, J) / (XDIF(Ll) *SX(J) ) 

605  CALL  DIFLOW 

AIM ( 1+1 , J) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

AIP (I , J) =AIM (1+1, J) -FLOW 
AREA=RMN ( J+l) *XCV(I) 

IF (J.EQ.M2)  GO  TO  606 

FLOW=AREA*V ( I , J+l ) * (FY ( J+l ) *RHO ( I , J+l ) +FYM ( J+l ) *RHO ( I , J) ) 
DIFF=AREA*2 . *GAM(I, J) *GAM(I, J+l) / (YCV(J) *GAM(I, J+l)+ 

1  YCV (J+l) *GAM (I, J) +1 . 0D-40 ) 

GO  TO  607 

606  FLOW=AREA*V ( I , Ml ) *RHO ( I , Ml ) 

DIFF=AREA*GAM ( I , Ml ) / YDIF  (Ml ) 

607  CALL  DIFLOW 

AJM ( I , J+l ) =ACOF+DMAXl ( 0 . 0D0 , FLOW) 

AJP (I , J) =AJM ( I , J+l ) -FLOW 
VOL=YCVR ( J) *XCV(I) 

APT=V0L*RH01 ( I , J) /DT 
CON (I , J) =CON (I , J) *VOL/APT 

AP(I, J) =-AP(I, J) *VOL+AIP(I, J)+AIM(I, J) +AJP(I, J) +AJM(I, J) 
ALAMBDA(I, J)=AP(I, J) /APT 
AIP (I, J)=AIP(I, J) /APT 
AIM (I , J) =AIM (I , J) /APT 
AJP (I, J)=AJP(I, J) /APT 
AJM ( I , J ) = AJM ( I , J ) /APT 
603  CONTINUE 

c  print  *,  'call  factor' 

CALL  FACTOR 
DO  608  1=2 ,L2 
DO  608  J=2 ,M2 

AP (I , J) =1 . 0+ALAMBDA (I , J) *FP (I, J) 

CON(I , J) =CON (I, J) +AIP (I , J) * (1 . -FP (1+1 , J) ) *FOLD ( 1+1 , J,NF) 
1+AIM(I, J) * (1 . -FP (1-1, J) ) *FOLD(I-l, J,NF) 

1+AJP (I, J) * (1 . -FP (I , J+l) ) *FOLD(I, J+1,NF) 

1+AJM(I, J) * (1 . -FP (I , J-l) ) *FOLD(I, J-1,NF) 

CON ( I , J ) =CON ( I , J )  +  ( 1 . 0  +FP ( I , J ) *ALAMBDA ( I , J ) -ALAMBDA ( I , J ) ) * 
1F0LD(I, J,NF) 

AIP (I, J)=AIP(I, J)*FP(I+1,J) 

AIM (I , J ) = AIM (I , J ) *FP (1-1 , J) 

AJP (I , J) =AJP (I , J) *FP (I , J+l ) 

AJM ( I , J ) = AJM (I , J ) *FP(I, J-l) 

AP (I , J) =AP (I , J) /RELAX (NF) 

REL=1 . -RELAX (NF) 

CON ( I , J ) =CON ( I , J ) +REL* AP ( I , J ) *F(I, J,NF) 

608  CONTINUE 

C - 

DO  730  I=IST,L2 
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DO  730  J=JST,M2 
FNEW  (I,J)=F(I,J,NF) 

730  CONTINUE 

C - 

c  print  *,  'call  solve' 

CALL  SOLVE 

c  print  *,  'exit  solve' 

C - 

if (nf .eq.5)call  output3 
DIFMAX=0 . 0 
DO  731  J=2  ,M2 
DO  731  1=2 , L2 

DELTAT=DABS ( (F (I, J,NF) -FNEW(I,  J) ) / (F (I , J,NF) +1 .D-40) ) 
if (nf .eq.5)call  output2 
DIFMAX=DMAX1  (DIFMAX, DELTAT) 

731  CONTINUE 

c  print  *,  'after  difmax' 

IF (DIFMAX.LE.EPS (NF) )  IFLAG (NF) =1 
call  output 

C - 

600  CONTINUE 

JITER=JITER+1 
IF (JITER.LT. 2)  RETURN 

Q* ******************************************* 

JFLAG=0 

DO  732  N=1,NFD 
JFLAG=JFLAG+ IFLAG (N) 

732  CONTINUE 

IF ( JFLAG . EQ . NFD )  GO  TO  742 
IF ( JITER.LT. JLAST)  RETURN 
CALL  BOUND 
CALL  SAVE1 
CALL  OUTTOO 

print  *,  'Number  of  iterations  exceeds  JLAST' 

LSTOP= .TRUE, 
call  savepc 
RETURN 

Q* ******************************************* 

742  CONTINUE 
JITER=0 
ITER=ITER+1 

IF (LSTEADY)  TIME=TIME+DT 

CALL  UNSTDY 

CALL  BOUND 

CALL  OUTTOO 

CALL  SAVE 2 

CALL  SAVEPC 

IF ( ITER. GE. LAST)  LSTOP=.TRUE. 

IF ( ITER . GE . LAST) THEN 

print  *,  'Number  of  iterations  exceeds  LAST' 

ENDIF 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
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SUBROUTINE  SUPPLY 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q***************************************************************** 

CHARACTER  TITLE*18 
CHARACTER  DATAFILE*60 

LOGICAL  L SOLVE , LPRINT , LBLK , LSTOP , LSTEADY 
PARAMETER  ( ID=3  0  0 , JD=3  0  0 , NFD=2 0 , NFP3  =2  3 , MI J=3  0  0 ) 

COMMON  F (ID, JD,NFD) ,RHO(ID,JD) , GAM (ID, JD) ,CON(ID, JD) , 

1  AIP (ID, JD) , AIM(ID, JD) ,AJP(ID, JD) ,AJM(ID, JD) ,AP(ID, JD)  , 

2  X (ID) ,XU (ID) , XDIF (ID) ,XCV(ID) ,XCVS(ID) , 

3  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) ,rhol(id, jd) , 

4  YCVR(JD) , YCVRS ( JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R ( JD) , RMN ( JD) ,SX(JD) ,SXMN(JD) ,XCVI(ID) ,XCVIP(ID) 

COMMON  DU (ID, JD) , DV (ID, JD) ,  FV(JD) ,FVP(JD) , 

1  FX (ID) , FXM(ID) , FY ( JD) , FYM ( JD ) ,PT(MIJ) ,QT(MIJ) 

COMMON/ INDX/NF , NFMIN, NFMAX , NP , NRHO , NGAM, LI , L2 , L3 , Ml , M2 , M3 , 

1IST, JST, ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3 ) , TIME , DT , XL , YL , 
2IPREF, JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , MODE , 

3NTIMES (NFP3 ) , RHOCON 

DIMENSION  U(ID, JD) ,V(ID, JD) ,PC(ID,JD) ,P(ID, JD) 

EQUIVALENCE (F ( 1 , 1 , 1 ) ,U (1 , 1) ) , (F (1 , 1, 2) , V (1, 1) ) , (F (1, 1 , 3 ) , PC (1 , 1) ) 
EQUIVALENCE (F (1,1, 4) ,P(1,1) ) 

c*************************************************************** 


10  FORMAT (14 (IX, 1H*) , 3X, A10, IX, 14 (IX, 1H*) ) 

20  FORMAT (IX, 4H  I  =,16,619) 

30  FORMAT (IX, 1HJ) 

40  FORMAT (IX, 12, 3X, 1P7E9 .2) 

50  FORMAT (IX, 1H  ) 

51  FORMAT ( IX , 'I  = ' , 2X, 6 (14 , 9X) ) 

52  FORMAT ( IX , ' X  =',1P6E12.4) 

53  FORMAT ('TH  =',1P6E12.4) 

54  FORMAT ( IX , ' J  = ' , 2X, 6 (14 , 9X) ) 

55  FORMAT ( IX , ' Y  =',1P6E12.4) 

£*****★*****★****★★*★★***★**★★★*★***★**★***★******★★******★★*•*•★★ 


ENTRY  UGRID 
XU (2) =0 . 

DX=XL / DFLOAT (LI -2 ) 
DO  1  1=3, LI 

1  XU (I) =XU (1-1) +DX 
YV (2) =0 . 

DY = YL / DFLOAT (Ml-2 ) 
DO  2  J=3 ,M1 

2  YV ( J) =YV { J— 1 ) +DY 
RETURN 


ENTRY  PRINT 

IF (.NOT. LPRINT (3 ) )  GO  TO  80 
CALCULATE  THE  STREAM  FUNCTION - 


F  (2 , 2, 3 ) =0 . 


DO  82  1=2, LI 

IF (I .NE.2)  F (I, 2 , 3) =F (1-1, 2 ,3) -RHO (1-1, 1) *V(I-1,2) 
1*R (1) *XCV(I-1) 

DO  82  J=3 ,M1 
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RHOM=FX (I) *RHO (I , J-l) +FXM (I) *RHO (1-1 , J-l) 
82  F (I, J, 3 ) =F (I , J-l , 3 ) +RHOM*U (I , J-l) *ARX(J-1) 
80  CONTINUE 


IF ( .NOT.LPRINT (NP) )  GO  TO  90 


CONSTRUCT  BOUNDARY  PRESSURES  BY  EXTRAPOLATION 
DO  91  J=2 ,M2 

P (1, J) = (P (2 , J) *XCVS(3) -P(3, J) *XDIF (2 ) ) /XDIF(3) 

91  P  (LI ,  J)  =  (P  (L2 ,  J)  *XCVS  (L2 )  -P  (L3  ,  J)  *XDIF  (LI ) )  /XDIF  (L2 ) 
DO  92  1=2, L2 

P(I,1)=(P(I,2) *YCVS (3 ) -P (I , 3 ) *YDIF (2 ) ) /YDIF (3 ) 

92  P ( I , Ml ) = ( P ( I , M2 ) *Y CVS (M2 ) -P ( I , M3 ) *YDIF (Ml ) ) /YDIF (M2 ) 
P(1,1)=P(2,1)+P(1,2)-P(2,2) 

P (LI , 1) =P (L2 , 1) +P (LI , 2 ) -P (L2 , 2) 

P (1 ,M1) =P (2 ,M1 ) +P (1 ,M2 ) -P (2 ,M2) 
P(L1,M1)=P(L2,M1)+P(L1,M2)-P(L2,M2) 

PREF=P ( I PREF , JPREF ) 

DO  93  J=1 ,M1 
DO  93  1=1, LI 

93  P(I, J)=P(I, J) -PREF 
90  CONTINUE 

C - 

C . . . START  PRINTOUT 
PRINT  50 
IEND=0 

301  IF (IEND.EQ.L1)  GO  TO  310 
IBEG=IEND+1 
IEND=IEND+6 
IEND=MIN0 (IEND, LI ) 

PRINT  50 

PRINT  51, (I, I=IBEG, IEND) 

IF (MODE . EQ . 3 )  GO  TO  302 
PRINT  52 , (X (I ) , I=IBEG, IEND) 

GO  TO  303 

302  PRINT  53 , (X (I) , I=IBEG, IEND) 

303  GO  TO  301 

310  JEND=0 
PRINT  50 

311  IF (JEND.EQ.M1)  GO  TO  320 
JBEG=JEND+1 
JEND=JEND+6 
JEND=MIN0 (JEND,M1) 

PRINT  50 

PRINT  54, (J, J=JBEG, JEND) 

PRINT  55, (Y ( J) , J=JBEG, JEND) 

GO  TO  311 
320  CONTINUE 


DO  999  NF=1 , NGAM 

IF ( .NOT.LPRINT (NF) )  GO  TO  999 

PRINT  50 

PRINT  10, TITLE (NF) 

IFST=1 
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JFST=1 

IF (NF .EQ. 1 . 0R.NF.EQ.3 )  IFST=2 
IF (NF.EQ . 2 . OR.NF. EQ.3 )  JFST=2 
IBEG=IFST-7 
110  CONTINUE 

IBEG=IBEG+7 
IEND=IBEG+6 
IEND=MIN0 ( I END , LI ) 

PRINT  50 

PRINT  20, (I, I=IBEG, IEND) 

PRINT  30 
JFL=JFST+M1 
DO  115  JJ=JFST,M1 
J=JFL-JJ 

PRINT  40, J, (F (I, J,NF) , I=IBEG, IEND) 

115  CONTINUE 

IF (IEND. LT. LI)  GO  TO  110 
999  CONTINUE 
RETURN 
END 

SUBROUTINE  FACTOR 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
£********************************************************** 
CHARACTER  TITLE*18 
CHARACTER  DATAFILE*60 

LOGICAL  LSOLVE , LPRINT , LBLK, LSTOP, LSTEADY 
PARAMETER  ( ID=3  0  0 , JD=3  0  0 , NFD=2 0 , NFP3  =2  3 , MI J=3  0  0 ) 

COMMON  F(ID, JD,NFD) ,RHO (ID, JD) ,GAM(ID, JD) ,CON(ID, JD) , 

1  AIP(ID, JD) ,AIM(ID, JD) ,AJP(ID, JD) ,AJM(ID,JD) ,AP(ID, JD) , 

2  X (ID) ,XU (ID) , XDIF (ID) ,XCV(ID) ,XCVS(ID) , 

3  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) ,rhol(id, jd) , 

4  YCVR(JD) , YCVRS ( JD) ,ARX(JD) ,ARXJ(JD) ,ARXJP(JD) , 

5  R ( JD) , RMN ( JD) , SX ( JD) , SXMN ( JD) ,XCVI(ID) ,XCVIP(ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,FV(JD) ,FVP(JD) , 

1  FX(ID) , FXM ( ID ) , FY ( JD) , FYM ( JD) ,PT(MIJ) ,QT(MIJ) 

COMMON/  INDX/NF ,  NFMIN,  NFMAX ,  NP ,  NRHO ,  NGAM ,  LI ,  L2 ,  L3  ,  Ml ,  M2  ,  M3  , 
1IST,JST, ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3 ) , TIME , DT , XL , YL , 
2IPREF, JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ), LBLK (NFP3 ) .MODE, 

3NTIMES (NFP3 ) , RHOCON 
COMMON/ CNTL /LSTOP , LSTEADY, LSCHEME 
COMMON/ SORC/SMAX, SSUM 
COMMON/COEF/FLOW, DIFF, ACOF 

COMMON/UNSTEDY/FOLD (ID, JD, NFD) ,FNEW(ID, JD) , JLAST, 

1  IFLAG(NFD) , EPS (NFD) , DIFMAX , JFLAG , deltat 
COMMON/EXPNT/ ALAMBDA ( ID , JD ) ,FP(ID,JD) 

C*****l-exp0nential  scheme,  2-implicit,  3-Crank-Nicolson 
GO  TO  (1,2,3) LSCHEME 
C**** ♦EXPONENTIAL  SCHEME 
1  DO  10  1=2, L2 
DO  10  J=2 , M2 

IF (ALAMBDA ( I, J) .GE.0. . AND . ALAMBDA ( I , J ) . LT .10.) THEN 
FP ( I , J) =1 . - ( 1 . - ( 1 . - . 1*ALAMBDA ( I , J) ) **5 ) /ALAMBDA ( I , J) 

END  IF 
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IF (ALAMBDA ( I , J) .GT. 10 . ) FP (I , J) =1 . -1 . /ALAMBDA ( I, J) 

FP (1, J) =1 . 0 

FP(L1,J)=1.0 

FP (I , 1) =1 . 0 

FP (I ,M1) =1 . 0 

10  CONTINUE 
RETURN 

C*****IMPLICIT  SCHEME 

2  DO  20  1=1, LI 
DO  20  J=1 ,M1 
FP (I , J) =1 . 0 

20  CONTINUE 
RETURN 

C*****CRANK_NIC0LS0N  scheme 

3  DO  30  1=1 , LI 
DO  30  J=1 ,M1 
FP (I , J) =0 . 5 

30  CONTINUE 
RETURN 
END 
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Appendix  D 


Numerical  Code  for  Coupled  Heat  and  Mass  Transfer 
Through  Hygroscopic  Porous  Textiles 
Integrated  with  a  Human  Thermal  Physiology  Control  Model 
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C*****october  1995 

SUBROUTINE  onerev 

C*****This  is  1-d  skin  model  for  human  thermal  control  system 
C*****Which  includes  a  double  clothing  layer 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C********************************************************** 

CHARACTER  TITLE*18 
CHARACTER  DATAF ILE 1*60 
CHARACTER  DATAFILE2  * 60 
character  datafile3*60 
CHARACTER  MARKER*20 

LOGICAL  LSOLVE, LPRINT, LBLK, LSTOP, L STEADY , I BUG 
PARAMETER  (JD=100,NFD=20,NFP3=23  ,MIJ=100) 

COMMON  F(JD,NFD) ,RHO(JD) , GAM ( JD) /CON(JD) , 

1  AJP(JD) ,AJM(JD) ,AP(JD) , 

2  Y ( JD) ,YV(JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) , 

3  YCVR ( JD) , YCVRS ( JD) 

COMMON/ INDX/NF ,  NFMIN,  NFMAX,  NP , NRHO , NGAM, Ml , M2 , M3  , 

1JST,ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3) , TIME , DT , YL , 

2 JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 )  , RHOCON 
COMMON/ CNTL/LSTOP , LSTEADY, LSCHEME 
COMMON/ SORC/SMAX, SSUM 
COMMON/ COEF/ FLOW, DIFF , ACOF 

COMMON/UNSTEDY/FOLD (JD,NFD) , FNEW ( JD) , JLAST, 

1  IFLAG(NFD) ,EPS(NFD) , DIFMAX, JFLAG, deltat 
COMMON/EXPNT/ ALAMBDA ( JD) , FP ( JD) 

DIMENSION  U ( JD) , V ( JD) , PC ( JD) , P ( JD) 

EQUIVALENCE (F( 1,1) , U (1) ) , (F ( 1 , 2 ) , V (1) ) , (F (1 , 3 ) , PC (1) ) 
EQUIVALENCE (F( 1,4) ,P(1) ) 

Q**  **  ic  ***  if  ******  ic*  ic  *****  ic  ********  ic  *****  ic  *  *  *  *  if  if  ***  *  * 

C 

DIFFUSION  prqrt.rm*****  ***************  ******** 
COMMON/DIFFLI/dataf ile , RHODS , RHOW, TKDS , TKW, TKV, 

1TKA ,  CPDS ,  CPW ,  CPV ,  CPA ,  PATM ,  RGAS ,  XMW ,  XMA ,  CHTC ,  CMTC , 

1 PSATB , RHBND , TBND , PVBND , RHOVBND , PABND , RHOABND , i wr i t e , npr int , 
1METHOD , EPSRHOV , PSATBB , PSATBT , RHBNDB , RHBNDT , TBNDB , 

1TBNDT ,  PVBNDB ,  PVBNDT ,  RHOVBNDB ,  RHOVBNDT ,  PABNDB ,  PABNDT , 
1RHOABNDB , RHOABNDT , WEIGHTI , WEIGHT , RHINT , EBWSAT , 
ldataf ilel , dataf ile2 , dataf ile3 , TINT, swtold, swteb, skebw, 
lrf 1 , rf 2 , taul , tau2 , all , al2 , edsl , eds2 , ebwintl , ebwint2 , 
ldsolidl , dsolid2 

COMMON/ SKINMOD/TAIRAMB , kyl ,  ky2 ,  ky3  , basemet , xercise, xkso , 
lrhocp,  alphakp ,  alphakm ,  xgamk ,  alpham ,  sweatO ,  alphswt ,  xlmbswt , 
lybod , yskin , ymusc , ycore , yair , yc loth , my bod , mycore , myskin, 
lmymusc ,  myair , my cloth , kycore , kymusc , kyskin , kyair , ky cloth , 
lskwork, dtb, tbody 0 , rhprev, tau , rf , al , dsolid, skmass , truesrc 
DIMENSION  T ( JD) ,RHOV(JD) ,EBW(JD) ,XMDOT(JD) , 

1EGAM ( JD) , RHOAIR ( JD) , PV(JD) , PA(JD) ,PSAT(JD) ,TSKIN(JD)  , 
1TBAVG(1) , SWEAT (1) ,XMAVAI(1) ,XMFLUX(1) ,ELW(JD)  , 

1XMDOTLW ( JD) , EDS ( JD) , tau ( jd) , rf ( jd) ,al(jd) ,dsolid(jd) , 
ldeffg(jd) ,tkeffg(jd) ,pgam(jd) ,rhov2 (jd) 

EQUI VALENCE (F(l, 5) ,rhov(l) ) , (F(l,6) ,T(1) ) , 

1 (F (1 , 7) , EBW  ( 1 ) ) ,  (F(l,8) , XMDOT ( 1 ) ) , 

1 (F (1 , 9 ) , EGAM ( 1 ) ) , (F(l,10) , RHOAIR (1) ) , 
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1  (F  (1, 11)  ,  PV (1)  )  ,  (F  (1, 12)  ,  PA  (1)  )  ,  (F  ( 1 , 13  )  ,  PSAT  ( 1 )  )  , 

1 (F (1,14) ,TSKIN(1) ) , (F(l,15) ,TBAVG(1) ) , (F (2 , 15) , SWEAT (1) ) 
1 (F (3 , 15 ) , XMAVAI ( 1 ) ) , (F(4,15) ,XMFLUX(1) ) , (F(l,16) ,ELW(1) ) 
1 (F (1 , 17 ) , XMDOTLW ( 1 ) ) , (F(l,18) ,EDS(1)) , (f (1,19) ,pgam(l)) 
DATA  TITLE (5) /7H  vap/ 

DATA  TITLE (6) /7H  TEMP/ 

DATA  TITLE (7 ) /7H  EBW/ 

DATA  TITLE (8) /7H  XMDOT/ 

DATA  TITLE (9) /7H  EGAM/ 

DATA  TITLE (10) /7H  RHOAIR/ 

DATA  TITLE ( 11 )/7H  PVAP/ 

DATA  TITLE ( 12 )/7H  PAIR/ 

DATA  TITLE (13 )/7H  PSAT/ 

DATA  TITLE ( 14 )/7H  TSKIN/ 

DATA  TITLE (15) /7H  SKIN/ 

DATA  TITLE (16) /7H  ELW/ 

DATA  TITLE (17) /7H  XMDOTL/ 

DATA  TITLE (18) /7H  EDS/ 

DATA  TITLE ( 19 )/7H  pgam/ 

DATA  IBUG/. false./ 

Q* ************************* 

ENTRY  GRID 

IF  (IBUG)  PRINT  *,  "ENTRY  GRID" 
c*****tHICkness** ********** 

0*****BOdy  Thickness  (m) 

YCORE=.032dO 
YMUSC= . 016d0 
YSKIN= . 008d0 
YBOD=YCORE+YMUSC+YSKIN 
C*****NUmber  of  Nodes  in  Body 
MYCORE=ll 
MYMUSC=10 
MYSKIN=10 

MYBOD=MYCORE+MYMUSC+MYSKIN 
C*****Air  Layer  Thickness  (m) 

YAIR=l.d-4 

c  yair=0 . l*yair 

C*****NUmber  of  Nodes  in  Air  Layer 
MYAIR=3 

C*****Clothing  Thickness  (m) 

YCLOTH=9 . 14D-4 
c  ycloth= .25d0*ycloth 

YCLOTH= . 5*YCLOTH 
yair=ycloth 

C*****Nvunber  of  Nodes  in  Clothing  Layer 
MYCLOTH=4 

C*****Total  thickness  and  number  of  nodes 
YL=YBOD+YAIR+YCLOTH 
Ml=MYBOD+MYAIR+MYCLOTH 
yv(2) =0 . OdO 

c*****C0RE  LAYER  (nodes  (l)/2  to  11) 
dycore=ycore/DFLOAT (MYCORE-1) 

KYcore=MYCORE 
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do  10  j=3,kycore+l 
yv( j ) =yv( j-1) +dycore 

10  continue 

c*****MUSCLE  LAYER  (nodes  12  to  21) 
dymusc=yxnusc/DFLOAT  (MYMUSC) 

KYmus c =KYCORE+MYMUSC 
do  11  j=kycore+2,kymusc+l 
yv(  j  )  =yv( j-1) +dymusc 

11  continue 

C*****SKIN  LAyer  (nodes  22  to  31) 

dyskin=yskin/DFLOAT (MYSKIN- 1 ) 
KYskin=KYMUSC+MYSKIN 
do  12  j=kymusc+2,kyskin-l 
yv ( j ) =yv ( j - 1 ) +dyskin 

12  continue 

yv(kyskin) =yv(kyskin-l) +dyskin- . 05*dyskin 
yv(kyskin+l) =yv(kyskin) +. 05*dyskin 
c*****AIR  LAYER  (nodes  32  to  35) 
dyair=yair/DFLOAT (MYAIR) 

KYair=KYSKIN+MYAIR 
do  13  j=kyskin+2,kyair+l 
yv( j ) =yv( j-1) +dyair 

13  continue 

c  *  *  *  *  *CL0THING  LAYER  (nodes  36  to  55/(56)) 
dye 1 o th=y c 1 ot h / DFLOAT (MYCLOTH-1 ) 

KYcloth=ml 

do  14  j=kyair+2,kycloth 
yv( j ) =yv( j-1) +dycloth 

14  continue 

RETURN 

*************************************************** 

ENTRY  START 

IF  (IBUG)  PRINT  *,  "ENTRY  START" 

C*****inpUt  the  data  file  name 
dt=l .DO 

nprint=int ( 60 . /dt ) 
nprint=1000 
iwrite=nprint 
dataf ilel= ' 5 . sst ' 
dataf ile2= ' noair . dyn ' 
dataf ile3= ' 5 .ebw' 
marker= ' a ' 

C  *  *  *  * *LSCHEME=1 -exponent ial , 2 - imp 1 i c i t , 3 -Crank-N i col s  on 
LSTEADY= . TRUE . 

1 scheme =2 
LSOLVE ( 5 ) = . TRUE . 

LSOLVE ( 6 ) = . TRUE . 
lsolve (20) = .true. 

EPS (5) =1 .D-3 
EPS (6) =1 .D-3 
eps (20) =1. d-3 
JLAST=1000 
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LAST=1440000 
relax(5) =. ldO 
relax (6) =. ldO 
relax(5)=l. 
relax (6) =1. 
relax(17)=.ld0 
relax ( 17 )=l.dO 
RELAX (8) =l.dO 
relax(5)=.5 
relax(6) =1 . 

c  relax  (9)  is  for  fiber  source,  relax(8)is  skin  source 
C***** PROBLEM  CONSTANTS 
c*****INITIAL  EXERCISE  LEVEL  (W/m~2) 
c*****Typical  values  are:** 
c  sleeping  =  0. 
c  walking 
c  .89  m/s  =  75. 

c  1.34  m/s=  110. 

c  1.79  m/s=180. 
c  Office  Work  =  16.  to  41. 
c  Light  Work  =  50.  to  98. 
c  Heavy  Work  =98.  to  235. 

skwork=50 .DO 
c*****sKIN  CONSTANTS 
C*****INITIAL  CONDITIONS  FOR  BODY 
c*****read  in  equilibrium  values  for  28  degrees  C 
open (13 , file= 'prof28 .dat ' ) 
do  113  j=l,kyskin 
read ( 13 , * ) t  ( j ) 

113  continue 
close (13 ) 

c*****These  three  quantities  not  used  in  this  version 
sweat (1)=0. 
xmavai (1) =0 . 
xmflux(l) =0 . 

C*****C0NVECTIVE  HEAT  TRANSFER  COEFFICIENTS  AT  BOUNDARY 
CHTC=16.dO 

c *  *  *  *  * CONVECTIVE  MASS  TRANSFER  COEFFICIENTS  AT  BOUNDARY 
C*****CHTC= (RHO*CP) *CMTC 
CMTC=.013d0 

C*****SOLID  PHASE  DIFFUSION  COEFFICIENT  OF  WATER 
DS0LID1=4 .D-13 
DSOLID2=4 .D-13 

c  *  *  *  * ‘EFFECTIVE  FIBER  DIAMETER 
aLl=3 . 6D-6 
aL2=3 . 6D-6 

c*****MASS  FRACTION  OF  WATER  TO  DRY  SOLID  AT  65%  r.h. 
RF1=0 . 06d0 
RF2=0 . OOdO 
c  *  *  *  *  *TORTUOS ITY 
TAUl=l.d0 
TAU2=2 . 9d0 
taul=2 . 9d0 

c  *  *  *  * ‘VOLUME  FRACTION  OF  DRY  SOLID 
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edsl=0 . 001D0 
edsl=0.3D0 
eds2=0 .3DO 
C*****DENSITIES 

RHODS=1500.d0 

RHOW=1000.d0 

C*****THERMAL  CONDUCTIVITIES 
TKDS=0 . 16d0 
TKW=0 . 6d0 
TKV=0 . 0246d0 
TKA=0 . 02563d0 
C*****HEAT  CAPACITIES 
CPDS=1200.dO 
CPW=4182.dO 
CPV=1862 . dO 
CPA=1003.d0 

C*****TOTAL  GAS  PRESSURE  (ATMOSPHERIC) 
PATM=101325.d0 

C*****UNIVERSAL  GAS  CONSTANT 
RGAS=8314 . 5d0 
c  *  *  *  * ♦molecular  WEIGHTS 
XMW=18.015d0 
XMA=28 . 97d0 

c*****INITIAL  CONDITIONS 
TINTC=35 . OdO 
TINT=TINTC+273 . 15d0 
RHINT= . ldO 
rhprev=rhint 

EBWINT1= (0 . 578dO*RFl*EDSl*RHODS/RHOW) 

1* (RHINT) * ( (1 .dO/ ( .321d0+ (RHINT) ) ) 

1+ (1 .dO/ (1 .262d0- (RHINT) ) ) ) 

EBWINT2  = ( 0 . 57  8d0  *RF2  *EDS2  *RHODS/RHOW) 

1* (RHINT) * ( (1 .dO/ ( .321d0+ (RHINT) ) ) 
l+(l.d0/ (1.262d0- (RHINT) ) ) ) 

PSATI=614 .3dO*DEXP (17 . 06d0* ( (TINT-273 . 15d0) 

1/ (TINT-40. 2 5d0) ) ) 

PVINT=RHINT*  PSATI 
RHOVINT=PVINT*XMW/ (RGAS*TINT) 

c  *  *  *  * ♦boundary  conditions 

C*****TOP  OF  SLAB 
RHBNDT=RHINT 
TBNDT=TINT 

PSATBT=614 .3dO*DEXP (17 . 06d0* ( (TBNDT-273 . 15d0) 
1/ (TBNDT-40 .25d0) ) ) 

PVBNDT=PSATBT*RHBNDT 
PABNDT= PATM-  PVBNDT 
RHOABNDT=PABNDT*XMA/ ( RGAS  * TBNDT ) 
RHOVBNDT=PVBNDT*XMW/ ( RGAS  * TBNDT ) 
c  initial  conditions  for  the  body 
rhbod=l.d0 
do  114  j=l,mybod 

PSAT ( J) =614 .3dO*DEXP (17 . 06d0* ( (T( j ) -273 . 15d0) 
1/ (T ( j ) -40 . 25d0 ) ) ) 

XMDOT ( J) =0 .dO 
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EBW ( J) =1 .DO 

EGAM ( J) =0 .DO 

ELW ( J) =0 .DO 

EDS ( J) =0 .DO 

XMDOTLW ( J) =0 .DO 

PV ( J ) =PSAT ( j ) *rhbod 

RHOV (J) =pv( j ) *xmw/ (rgas*t ( j ) ) 

PA ( J ) =patm-pv ( j ) 

RHOAIR ( J) =pa ( j ) *xma/ (rgas*t ( j ) ) 
pgam(j)=pa(j)+pv(j) 

114  continue 


C*****INITIAL  CONDITIONS  FOR  AIR  LAYERS 
DO  101  J=kyskin+l,kyair 
T(J)=TINT 
tau ( j ) =taul 
dsolid (j ) =dsolidl 
al ( j ) =all 
rf ( j ) =rfl 
XMDOT(J) =0 .d0 
xmdotlw( j ) =0 .dO 
EBW ( J) =EBWINT1 
EDS ( J) =EDS1 
ELW ( J) =0 .DO 

EGAM ( J) =1 .dO-EDS (J) -EBW(J) -ELW(J) 

XMDOTLW (J)=0. DO 

PV ( J) =PVINT 

RHOV ( J) =RHOVINT 

PA( J) =PATM-PV (J) 

RHOAIR (J)=PA(J) *XMA/ (RGAS*T(J) ) 
pgam(j)=  pa(j)+pv(j) 

PSAT ( J) =614 .3dO*DEXP (17 . 06d0* ( (T ( J) 
1-273. 15dO)/(T(J) -40. 25d0) ) ) 

101  CONTINUE 

C*****INITIAL  CONDITIONS  FOR  CLOTHING  LAYERS 
DO  102  J=kyair+1 ,M1 
T(J) =TINT 
tau ( j ) =tau2 
dsolid (j ) =dsolid2 
al ( j ) =al2 
rf ( j ) =rf2 
XMDOT(J) =0 .d0 
xmdotlw( j ) =0 .dO 
EBW ( J) =EBWINT2 
EDS ( J) =EDS2 
ELW ( J) =0 .DO 

EGAM  ( J) =1 .dO-EDS ( J) -EBW ( J) -ELW ( J) 
XMDOTLW (J)=0. DO 
PV ( J) =PVINT 
RHOV  ( J) =RHOVINT 
PA ( J) =PATM-PV ( J) 

RHOAIR (J)=PA(J) *XMA/ (RGAS*T(J) ) 

PSAT ( J) =614 . 3dO*DEXP (17 . 06d0* ( (T(J) 
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1-273. 15dO)/(T(J) -40. 25d0) ) ) 
pgam  ( j ) =pa ( j ) +pv ( j ) 

IF (J.EQ.M1)  THEN 
T ( J) =TBNDT 
PV (J) =PVBNDT 
RHOV ( J ) =RHOVBNDT 
PA ( J) =PABNDT 
RHOAIR ( J) =RHOABNDT 
PSAT ( J ) =PSATBT 
pgam ( j ) =pa ( j ) +pv ( j ) 

END  IF 

102  CONTINUE 
LPRINT ( 5 ) = . TRUE . 

LPRINT ( 6 ) = . TRUE . 

LPRINT (7 )=. TRUE. 

LPRINT (8 )=.TRUE. 

DO  103  J=1 ,M1 

DO  103  NF=1,NFD 
FOLD ( J, NF) =F ( J,NF) 

103  CONTINUE 

C  *  *  *  *  *  CALCULATE  INITIAL  WEIGHT  (MASS/SQ.  METER) 

WEIGHTI=0 . 0 

DO  104  J=kyskin+1,M2 

RHOAVG=RHOW*EBW(J) +RHODS*EDS ( J) + 

1 (RHOV ( J) +RHOAIR ( J) )*EGAM(J) 

VOLUME=YCV (J) 

WE I GHT I =WE I GHT I + VOLUME * RHO AVG 

104  CONTINUE 

c*****recor3  run  variablesrfn/RF 

open (10,access=' append' #  f ile=dataf ilel) 

write (10, *) "dt,eps (5) ,eps (6)  " 

write (10 , *) "relax  (5) , relax (6) , scheme" 

write (10, *) marker , dt , eps (5) , eps (6) 

write (10, *) marker, relax (5) , relax (6) ,lscheme 

write (10, *) "grid, Ml M ,M1 

write (10, *) marker, Ml 

write (10, *) "method, Thickness, Rf " 

write(10, *) "Dsolid, Initial  Weight" 

write ( 10 , * ) marker , METHOD , YL , RF 

write (10,*) marker , DSOLID , WEIGHT I 

write(10, *) "rhint , rhbndt , rhbndb" 

write ( 10 , * ) marker , rhint , rhbndt , rhbndb 

write(10, *) "time, t , rhov, ebw,xmdot , weight , %  change" 

write (10, *) "//nc" 

write (10 , * ) "time, tavg, trect , tskin, tfabric , dtb" 
close  (10) 

open (11 ,access= 'append' , f ile=dataf ile2) 
write (11, *) "temp,r.h. ,xmdot" 
write (11, *) "//nc" 
close (11) 

open(25,access='append' , f ile=dataf ile3 ) 

write(25,  *)  "time,  sweat  ,xmavai  (1)  ,xmdot  (kyskin)  ,ebw,rhsk" 
close (25) 

RETURN 
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Q**************************************************** 

c 

ENTRY  UNSTDY 
C*****F0LD=FNEW 

IF  (IBUG)  PRINT  *,  "ENTRY  UNSTEADY" 

DO  200  J=1  ,M1 
DO  200  NF=1 ,NFD 
FOLD ( J , NF ) =F ( J , NF ) 

200  CONTINUE 

RETURN 

£***************************************************** 

C 

ENTRY  DENSE 


c 

call 

thermo 

c 

call 

pressure 

c 

call 

skin 

c 

call 

source 

IF  (IBUG)  WRITE  (*,*)  "ENTRY  DENSE" 

RETURN 

******************************************************* 

ENTRY  BOUND 

IF (IBUG) print  *,  'entry  bound' 

t (1) =t (2) 

c  call  pressure 

RETURN 

0*************,*‘*****************-********-***************** 

C 

entry  output 1 

c  print  *, 'f (j,15) , fold (j, 15) ,f (j,16) , fold (j, 16) ' 

do  1884  j=l,ml 

c  print  *,f ( j ,15) , fold (j, 15) 9t  ( j  r 16) rfold(j#16) 

1884  continue 
return 

ENTRY  OUTPUT 

if (ibug) print  * ,  'ENTRY  OUTPUT' 
call  outtoo 
c  difmax=0.0 

c  if (nf .eq.5) then 

c  jstrt=kyskin+l 

c  jends=m2 

c  end  if 

c  if (nf .eq.6) then 

c  jstrt=2 

c  jends=m2 

c  end  if 

c  if (nf .eq.5. or. nf. eq.6) then 
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cd  do  731  j=jstrt , jends 

c  deltat=dabs ( (f ( j ,nf ) -fnew( j ) ) / (f ( j ,  nf ) +1 .d-50) ) 

c  difmax=dmaxl (difmax, deltat) 

c  731  continue 

c  if (difmax.le.eps (nf )  )  if lag (nf ) =1 

if (jiter.gt .200) then 
c  print  *,jiter,nf 

if lag (nf ) =1 

c  print  *, 'did  it' 

end  if 

if (ibug) print  *,nf 
RETURN 

ENTRY  0UTPUT2 
RETURN 

ENTRY  OUTPUT3 
RETURN 

c********************************************************* 

c 

ENTRY  GAMSOR 
call  thermo 
c  call  skin 

c  call  source 

IF  (IBUG)  print  *,  'entry  gamsor' 

GO  TO  (699,699,699,699,610,600)  NF 
c  if (nf .eq.20) goto  610 

go  to  699 

600  CONTINUE 


c*****SKIN  CALCULATIONS 

C  *  *  *  *  *  CALCULATE  AVERAGE  BODY  TEMPERATURE  AND  DTB 

c*****use  rectangles  to  integrate  temperature 
tbody0=308 . 9d0 
ttskin=0 .d0 
DO  670  J=2,kyskin 
ttskin=tt skin+t ( j ) *ycv ( j ) 

670  CONTINUE 

TBAVG ( 1 )  =  ( 1 . dO/YBOD ) * tt skin 

DTB=TBAVG ( 1 ) -tbody 0 

DIFFTB= (TBAVG ( 1 ) -FOLD (1,15)) /DT 

C*****C0NSTANTS 

c*****basal  metabolic  rate  (W/m^3) 
BASEMET=1339.dO 

C*****exerCise  muscular  heat  generation  (W/m/Vk2) 
XERC I  SE= s  kwor  k  /  YMUSC 

C*****referenCe  skin  conductivity  (W/m-K) 

XKSO= . 498d0 

c  *  *  *  * *  dens i ty *heat  capac i ty  ( J /m A  3 -K ) 
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RH0CP=4 . 1868D6 

c***** thermal  proportional  control  coefficients  (1/K) 
ALPHAKP=  .729d0 
ALPHAKM=  . 326d0 

C*****thermal  rate  control  coefficients  (sec/K) 

XGAMK=1106 .dO 

c*****shivering  energy  generation  constant  (1/K) 
alpham=0 .dO 

c*****reference  sweat  generation  (kg/m/v2-sec) 
sweat 0=2 .80D-6 

c ★ ★ ★ ★ ★ sweat ing  proportional  control  constant  (kg/mA2-sec-K) 
alphswt=6 .98D-6 

c  *  *  *  *  *  sweat ing  rate  control  coefficient  (kg/mA2-sec-KA4) 
xlmbswt=2 . 69D-5 

do  664  j=l,kyskin 
rho ( j ) =rhocp 
if (dtb.gt . 0 .dO) then 

gam( j ) =  xkso* (1 .dO+alphakp*dtb+xgamk*dif ftb) 

xkplim=l . 511d0*xkso 

if  (gam( j ) .ge.xkplim) then 

gam( j ) =xkplim 

end  if 

end  if 

if  (dtb.  le.  0  .dO)  then 

gam(  j  )  =  xkso*  (l.dO+alphakm*dtb+xgamk*difftb) 

xkmlim= . 675d0*xkso 

if (gam( j ) . le.xkmlim) then 

gam  ( j  )  =xkml  im 

end  if 

end  if 

664  continue 

insulated  condition  at  body  center  for  symmetry 
gam(l) =0 . OdO 
t (1) =t (2) 

c*****body  core 

do  661  jl=l#kycore 
con ( j 1 ) =BASEMET 
ap(jl)=0.0d0 
661  continue 

C*****muscle  layer 

do  662  j2=kycore+l/kymusc 

C*****shivering  control  coefficients  (W/mA3-K) or (W/mA3-KA2) 
C*****shiVering  heat  generation  is  (W/M^3) 
ashivl=324 . IdO 
ashiv2=383 .8d0 
ashiv3=966 .9d0 

i f ( dtb . g t . 0 . dO ) de 1 tmet =XERC I SE 
if (dtb. le. 0 .dO) then 

if (dtb. le. 0 .dO .and. dtb. ge. -1 . OdO) then 
SHIVER=-ashivl*dtb+ashiv2*dtb*dtb 
end  if 
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if (dtb.lt . -1 . OdO) then 

SHIVER=660 . 256d0-ashiv3  * (dtb+1 . OdO ) 

end  if 

deltmet=SHIVER+XERCISE 
end  if 

con ( j  2 ) =deltmet 
ap ( j  2 ) =0 . OdO 

662  continue 

c*****Skin  layer 

do  663  j=kymusc+l,kyskin 

con(j)=0.0d0 

ap ( j ) =0 .OdO 

if ( j .eq.kyskin) then 

sknevap=xmf lux ( 1 ) 

jsk=kyskin+l 

dhvap= (2 .792D6) -160 .d0*fold( jsk, 6) -3 . 43d0*fold( jsk, 6) 
l*fold ( jsk, 6) 
xsource=-dhvap*sknevap 
c  if (rhumid.ge. 1 . OdO) then 

c  print  * , rhumid 

c  xsource=0.d0 

c  end  if 

if (xsource.ge. 0 .d0) then 
con ( j ) =xsource 
ap(j)=0.d0 
end  if 

if  (xsource.lt .O.dO) then 

con ( j ) =0 .dO 

ap ( j ) =xsource/t ( j ) 

end  if 

end  if 

c  print  *,xsource 

c  write  (*,  815)  j,gam(j)  ,xmdot  (j)  ,xmdotlw(j)  ,elw(j)  ,ebw(j)  ,egam(j) 

663  continue 

c*****Sweating  Production  and  Rate 
if (dtb.ge. 0 .dO) then 

Sweat  (1)  =sweatO+alphswt*dtb+xlmbswt*  (  (dtb)  **4) 

swtlim=60 . dO* sweat 0 

if (Sweat (1) .gt . swtlim) then 

Sweat (1) = swtlim 

end  if 

end  if 

if (dtb.lt . 0 .dO) then 
Sweat ( 1 ) = sweat 0 
end  if 


WEIGHT=0 . OdO 

DO  602  J=kyskin+l/ml 
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C*****DENSITY  AND  HEAT  CAPACITY  FOR  ENERGY  EQUATION 

RHOAVG=RHOW* (fold( j ,7) +fold ( j , 16) ) +RHODS*EDS (J) + 

1 (fold ( j , 5) +fold ( j ,  10) ) *fold( j ,9) 

CPAVG= (RHOW* (fold( j ,7) +fold( j ,16)) *CPW+RHODS*EDS (J) *CPDS+ 

1 (fold( j , 5) *CPV+fold ( j , 10) *CPA) *fold( j ,9) ) /RHOAVG 
c  RHOAVG=RHOW* (ebw( j ) +elw ( j ) ) +RHODS*EDS ( J) + 

c  1 (rhov( j ) +rhoair ( j ) ) *egam( j ) 

c  CPAVG= (RHOW* (ebw( j ) +elw( j ) ) *CPW+RHODS*EDS (J) *CPDS+ 

c  1 (rhov( j ) *CPV+rhoair ( j ) *CPA) *egam( j ) ) /RHOAVG 

RHO ( J) =RHO AVG * C P AVG 

c  *  *  *  *  *  CALCULATE  CURRENT  WEIGHT  (MASS/SQ.  METER) 

C*****AND  WEIGHT  GAIN  OR  LOSS  FROM  INITIAL  CONDITION 
VOLUME=YCV ( J) 

WE IGHT=WE IGHT+VOLUME * RHOAVG 
WEIGHTG=WEIGHT-WEIGHTI 

C*****DIFFUSI0N  COEFFICIENTS  AND  SOURCE  TERMS 

TKF=( (TKW*RHOW*(fold(j,7)+fold(j,  16) ) +TKDS*RHODS*EDS ( J) ) 

1/ (RHOW* (fold ( j , 7) +fold ( j , 16) ) +RHODS*EDS (J) ) ) 

TKG= ( (TKV*fold ( j , 5) +TKA*fold ( j , 10) )  / 

1 (fold ( j , 5) +fold ( j , 10) ) ) 

c  TKF= ( (TKW*RHOW* (ebw(j ) +elw( j) ) +TKDS*RHODS*EDS (J) ) 

c  1/ (RHOW* (ebw ( j ) +elw ( j ) ) +RHODS*EDS (J) ) ) 

c  TKG= ( (TKV*rhov( j ) +TKA*rhoair ( j ) ) / 

c  1 (rhov( j ) +rhoair ( j ) ) ) 

VF=EDS ( J) +ebw ( j ) +elw ( j ) 
vf=eds ( j ) +fold( j ,7) +fold ( j , 16) 

TKPERP=TKF*TKG/ (VF*TKG+ ( 1 . -VF) *TKF) 

TKPRLL= (1 .dO-VF) * TKG + VF  * TKF 
WOMEGA=l.dO 

TKEFF=WOMEGA*TKPRLL+ (1 . OdO-WOMEGA) *TKPERP 
C*****Cylinder  Model 

C  TKEFF=TKG* ( (TKF* (1 . +VF) +TKG* (1 . -VF) ) / 

c  1 (TKF* (1 . -VF) +TKG* (1 .  +VF) ) ) 

GAM ( J) =TKEFF 

DHVAP= (2 .792D+6) -160 .d0* fold (J, 6) -3 . 43d0*fold (J, 6) *fold ( J, 6) 
rhlim=0 . 95d0 

rhumid=fold ( j , 11) /fold (j , 13 ) 
if (rhumid.gt .rhlim) then 
rhumid=rhlim 
end  if 

QL=  (1 . 95D+5)  *  (1  .d0-rhumid) 

1* ( (1 .d0/ (0 . 2d0+ (rhumid) ) ) + 

1 (1 .d0/ (1 . 05d0- (rhumid) ) ) ) 

C*****ALL  SOURCE  TERMS  LUMPED  INTO  CON(J)  (LAZY  WAY) 
xhyg=- (dhvap+gl) *xmdot ( j ) 
xliq=-dhvap*xmdotlw ( j ) 
xsource=xhyg+xliq 
if (xsource.ge.O.dO)then 
con(j)=xsource 
ap(j)=0.d0 
end  if 

if (xsource . It . 0 . dO ) then 

con ( j ) =0 .d0 

ap ( j ) =xsource/t ( j ) 
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end  if 
602  CONTINUE 

C*****CREATE  CONVECTIVE  BOUNDARY  CONDITIONS 
C  GDYM=GAM ( 1 ) / YDIF ( 2 ) 

GDYP=GAM (Ml ) /YDIF (Ml ) 

c  AREAM=1 . OdO/ ( (1 . 0d0/CHTC+l . 0/GDYM) *YCV(2) ) 

AREAP=1 . OdO/ ( ( 1 . OdO/CHTC+1 . OdO/GDYP) *YCV (M2 ) ) 
c  GAM ( 1 ) =0 . 0 

GAM  (Ml)  =0  .  OdO 

c  CON ( 2 ) =CON ( 2 ) +AREAM*TBNDB 

C  AP ( 2 ) =AP ( 2 ) - AREAM 

CON (M2 ) =CON (M2 ) + AREAP  * TBNDT 
AP (M2 ) =AP (M2 ) -AREAP 
c  call  outputl 

c  print  *,nf 

c  print  *, ' j,gam,xmdot,xmdotlw,elw,ebw,egam' 

c  do  1239  j=l,ml 

c  print  *,j,gam(j) ,xmdot(j) ,xmdotlw(j) ,elw(j) ,ebw(j) ,egam(j) 

c  1239  continue 
GO  TO  699 

610  CONTINUE 
c  call  thermo 

c  call  skin 

call  source 

C*****DO  NOT  INCLUDE  BODY  LAYER  IN  VAPOR  SOLUTION 
do  609  j=l,kyskin 
gam( j ) =0 . OdO 
con( j ) =0 . OdO 
ap ( j ) =0 . OdO 
609  continue 


j  start=kyskin+l 
DO  611  J=j start, Ml 

C*****DENSITY  TERM  FOR  MASS  DIFFUSION  EQUATION 
RHO (J) =EGAM(J) 
rho(j)=fold(j ,9) 

C*****DIFFUSI0N  COEFFICIENTS  AND  SOURCE  TERMS 

DAIR= (2 .20D-5) * ( (fold (J, 6) /273 . 15d0) **1.75) 

DEFF=DAIR*EGAM ( J) /TAU ( J) 
def f=dair*fold ( j , 9) /tau ( j ) 

GAM(J)=DEFF 

xsource= (xmdot ( j ) +xmdotlw  ( j ) ) 

c  xsource= (1 .d0-f ( j , 5) ) *xsource+ 

c  1 (1 .d0-egam( j ) ) * (rhov( j ) +rhoair (j))*(f(j,5) -fold( j , 5) ) /dt 

xsource=xsource-rhov( j ) * (egam( j ) -fold ( j , 9) ) 
if ( j .eq. j start) then 
xsource=xsource+xmf lux (1) 
end  if 

c*****SOUrCe_term  dominated  calculations 
pwapor=psat  ( j ) 
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rhovsat=pwapor*xmw/  (rgas*t  ( j  )  ) 
paair=pgam ( j  )  -pwapor 
rhoasat=paair*xma/ (rgas*t ( j ) ) 
xmsat=rhovsat/ (rhovsat+rhoasat ) 
rhumid=pv ( j ) /psat ( j ) 

IF(xsource.LT. 0 .dO)  THEN 
CON ( J) =0 . dO 

AP ( J) =xsource/ (rhov(J) ) 
if (elw(j) .gt .0.d0)then 
xmf lim=0 . 99D0*xmsat 

c  con ( j ) =xsource*xmf lim/ (xmf lim-xmf ( j ) ) 

c  ap( j ) =-xsource/ (xmf lim-xmf ( j ) ) 

c  con( j ) = (1 .D50) *xmflim 

c  ap(j)=-l.D50 

end  if 
j jl=kyskin+l 

if  (xmavai (1) .gt . 0 .dO .and. j . eq. j j 1) then 
con( j ) =xsource*rhovsat/ (rhovsat-rhov ( j ) ) 
ap ( j ) =-xsource/ (rhovsat-rhov (j ) ) 
t ruesrc=con ( j ) +ap ( j ) *rhov ( j ) 
end  if 
END  IF 

IF  (xsource .  GE .  0  .  dO )  THEN 
CON ( J) =xsource 
AP ( J) =0 . OdO 

c  if (elw(j) ,gt.0.d0)then 

if (j .eq.kyskin+1 .and. xmavai (1) .gt . 0 .dO) then 
xmf 1 im= . 99D0 *xmsat 

c  con ( j ) =xsource*xmf lim/ (xmf lim-xmf  ( j ) ) 

c  ap ( j ) =-xsource/ (xmf lim-xmf ( j ) ) 

c  con ( j ) = (1 .D50) *xmf lim 

c  ap(j)=-l.D50 

end  if 

j jl=kyskin+l 

if (xmavai (1) .gt . 0 .dO .and. j .eq. j jl) then 
con( j ) =xsource*rhovsat/ (rhovsat-rhov( j ) ) 
ap ( j ) =-xsource/ (rhovsat-rhov( j ) ) 
truesrc=con ( j ) +ap ( j ) *rhov ( j ) 
end  if 

END  IF 

611  CONTINUE 

c*****CREATE  CONVECTIVE  BOUNDARY  CONDITIONS 
c  GDYM=GAM  ( 1 )  /  YDIF  ( 2 ) 

GDYP=GAM  (Ml )  /  YDIF  (Ml ) 

c  AREAM=  1.0/  (  (1 . 0/CMTC+l .  0/GDYM)  *YCV(2)  ) 

AREAP=1 . OdO/ ( (1 . 0d0/CMTC+l . OdO/GDYP) *YCV(M2) ) 
c  GAM  (1)  =0 . 0 

GAM  (Ml)  =0  .  OdO 

C  CON ( 2 ) =CON ( 2 ) + AREAM * RHO VBNDB 

c  AP ( 2 ) =AP ( 2 ) -AREAM 

CON (M2 ) =CON (M2 ) + ARE AP  * RHO VBNDT 
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AP  (M2 )  =AP  (M2 )  -AREAP 
c  call  output 1 

c  print  *,nf 

c  print  *,  '  j  ,gam,xradot,xmdotlw,  elw,  ebw,  egam' 

c  do  1279  j=l,ml 

c  print  *, j ,gam( j) ,xmdot ( j ) , xmdotlw( j ) ,elw( j ) , ebw( j ) , egam( j ) 

c  1279  continue 
GOTO  699 

699  RETURN 

c 

ENTRY  SAVE1 
RETURN 

Q********************************************************* 

c 

ENTRY  OUTTOO 
LPRINT ( 5 ) = . TRUE . 

LPRINT ( 6 )  = . TRUE . 
timel=time/3600 . 
c  if (timel .It .2 - )goto  899 

if (timel.gt .8. )goto  9999 
if (timel .gt .3 . ) then 
dt=l.d-l 
relax (6)= . ldO 
relax(5)=.ld0 
relax(17) =.5d0 
relax  (5)  =  *  5 
relax (6) =1. 
relax (17) =1 . 
nprint=l 

nprint=int (60 . /dt) 
nprint=10000 
c  iwrite=nprint 

if (timel .gt .3 .25) then 
dt=l.d-l 
nprint=10000 
end  if 

skwork=50 .DO 

rhlim=0.9d0 

tchange=600 .d0 

rhchange=0 . 6d0 

de 1 r hdt =r hchang e / 1 chang e 

rhprev=rhprev+delrhdt  *dt 

if (rhprev.gt .rhlim) then 

rhprev=rhlim 

end  if 

rhprev=0 . 9d0 
relax ( 17 )=l.d0 

RHBNDT=rhprev 
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TINTC=3  5 . OdO 
TINT=TINTC +2  7  3 . 15d0 
TBNDT=TINT 

PSATBT=614 .3dO*DEXP ( 17 . 06d0* ( (TBNDT-273 . 15d0) 

1/ (TBNDT-40 .  25d0 ) ) ) 

PVBNDT = P  S ATBT  *  RHBNDT 

PABNDT= PATM- PVBNDT 

RHOABNDT= P ABNDT *XMA/  (RGAS*TBNDT) 

RHOVBNDT=PVBNDT*XMW/  (RGAS*TBNDT) 

rhov  (ml )  =rhovbndt 

pv  (ml )  =pvbndt 

psat  (ml)  =psatbt 

pa (ml ) =pabndt 

rhoair (ml ) =rhoabndt 

t (ml) =tbndt 

end  if 

if  (timel  .gt  . 4 .dO)  then 
dt=l.d-l 
nprint=10000 
c  relax (5) =.5 

c  relax (6) =.5 

c  relax(8)=.l 

c  relax(8)=l. 

if (timel .gt .4 .25d0) then 
dt=l .d-1 

c  nprint=int (dt) *60 

c  relax(8)=l. 

end  if 

skwork=50 .DO 
RHBNDT=0 . lOdO 
TINTC=35 . dO 
TINT=TINTC+273 . 15d0 
TBNDT=TINT 

PSATBT=614.3dO*DEXP(17.06d0* ( (TBNDT-273 . 15d0) 

1/ (TBNDT-40. 25d0) ) ) 

PVBNDT= P  S  ATBT  *  RHBNDT 

PABNDT= PATM-  PVBNDT 

RHO ABNDT = P ABNDT  *  XMA  /  ( RGAS  *TBNDT ) 

RHOVBNDT = PVBNDT  *  XMW / (RGAS*TBNDT) 

rhov  (ml )  =rhovbndt 

pv  (ml )  =pvbndt 

psat  (ml )  =psatbt 

pa(ml)=pabndt 

rhoair (ml ) =rhoabndt 

pgam  (ml )  =pv  (ml )  +pa  (ml ) 

t (ml ) =tbndt 

end  if 

if  (iwrite.eq.nprint)  then 

open ( 10 ,access=' append' , f ile=dataf ilel) 

templ=tbavg (1) -273 . 15d0 

temp2=t (1) -273 . 15d0 

temp3=t (kyskin) -273 . 15d0 

temp4=t (m2 ) -273 . 15d0 

write (*,*)• time  tbody  tcore  tskin  tclsurf  dtb  ebwskin" 
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write (* # 817 ) timel , tempi , temp2 , temp3 , temp4 , 
ldtb, ebw(kyskin+l) 

write (10, 816) timel , tempi, temp2 , temp3 , temp4, 
ldtb 

816  format (Bell .5, lx, ell .5) 

817  format (7f 11 .5) 

818  format (il0,3ell. 5) 
close (10) 

open (25, access= 'append' , f ile=dataf ile3 ) 
rhumid=pv (kyskin+1) /psat (kyskin+1) 
write (25, 816) timel, sweat (1) ,xmavai (1) ,xmflux(l) , 
lelw (kyskin+1) ,rhumid 
close (25) 

c  write (*, *) "iter, temp (K) , temp (C) , dens , humid, xmdot" 

open(ll,access='append' , file=datafile2) 
write (*,*) "iter, sweat, mass  left  on  skin" 
write (* , *) iter, sweat (1) ,xmavai (1) 

write (*,*) "original  sweat, sweat  evaporated, sweat  left" 
xsleft=xmavai (1) 

swteb=xmflux(l)  *dt*ycv (kyskin+1) 
swtbeg=fold(3 , 15) +sweat (1) *dt 
write ( * , 822 ) skmass , swteb, xslef t 
print  *, 'source  used  (total),  truesrc' 

print  *,xmflux(l) , xmdot (kyskin) , xmdot lw(ky skin) , truesrc 
c  write  (* ,  *)  "  j  ,  temp,  elw,  rhumid,xmf lux (1)  , xmdot lw, egam" 

822  format (3el5. 4) 

c  print  * , ' j , temp, rhov ( j ) , rhumid, xmdot ( j ) , ebw( j ) ,xmlw( j ) , elw(  j )  ' 

print  *, ' j , temp, rhov( j ) , rhumid, xmdot (j ) ,ebw(j) ,pv(j) ,pgam(j)  ' 
c  print  ' j ,egam(  j ) ,ebw( j ) , elw( j ) ,xmflux(l) , xmdot lw( j ) ,xmf  ( j ) ' 

j  end=ml 

j  strt=kyskin-l 

do  897  j=jstrt,jend 

temp=t ( j ) -273  . 15 

rhumid=pv( j ) / (psat ( j ) +1 .D-50) 

f lux=xmdot ( j ) 

if ( j .eq. kyskin+1) then 

f lux=xmflux(l) 

end  if 

c  write(*,815) j, temp, rhov(j ) , rhumid, flux,ebw(j) 

c  1,  xmdot  lw(j  )  ,elw(  j  ) 

write  (* ,  815)  j  ,  temp,  rhov  (j  )  ,  rhumid,  flux,  ebw(  j ) 
l,pv(j)  , pgam ( j ) 

c  write  (11 , 818)  j  ,  temp,  rhumid, xmdot  ( j  ) 

897  continue 

c  print  *,  ' j , egam ( j ) , ebw( j ) , elw( j ) ,xmf lux(l) , xmdot lw( j ) ,xmf  ( j ) ' 

do  898  j=kyskin-l,ml 
temp=t ( j ) -273 .15 
rhumid=pv( j ) / (psat ( j ) +1 .D-50) 
if ( j .eq. kyskin+1) then 

c  write  (*,  815)  j  ,egam(j)  ,ebw(j)  ,elw(j)  ,xmflux(l)  ,xmdotlw(j)  ,xmf  (j) 

end  if 

c  write  (*,  815)  j  ,egam(j  )  ,ebw(j)  ,elw(j)  , xmdot  (j)  ,xmdotlw(j)  ,xmf  (j) 

c  write  (11, 818)  j  ,  temp,  rhumid, xmdot  ( j  ) 
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898  continue 
close (11) 

815  format (lx, i7 , If 9 .3 , e9 .3 , 5e9 .3) 
iwrite=0 
end  if 

iwrite=iwrite+l 

811  format (lelO .3 , lx, elO . 5 , lx, elO . 5, 4el0 .3 ) 

812  format  (5ell.4) 

899  RETURN 

£******** ****************************************  ********* 

c 

ENTRY  SAVE PC 
RETURN 


********************************************************* 

ENTRY  SAVE2 
RETURN 


entry  THERMO 

c  if (ibug)print  *, 'entry  thermo' 

do  1021  j=kyskin,ml 
c  xmfr=xmf ( j ) / (1 .dO-xmf ( j ) ) 

c  rhov( j ) = (xmfr* (patm*xma/ (rgas*t ( j ) ) ) ) 

c  1/ (1 .dO+xmfr* (xma/xmw) ) 

PSAT (J) =614 -3dO*DEXP (17 . 06d0* ( (T ( J) -273 . 15d0) / 
1 (T(J)-40.25d0) ) ) 

PV ( J) =RHOV ( J) *RGAS*T ( J) /XMW 
PA( J) =PATM-PV (J) 
pgam ( j ) =pa ( j ) +pv ( j ) 

RHOAIR ( J) =PA ( J) *XMA/ (RGAS*T(J) ) 

1021  continue 
return 

entry  pressure 
do  1026  j=kyskin,ml 
Pgam(J) =PATM 

PV ( J) =RHOV ( J) *RGAS*T ( J) /XMW 
pa ( j ) =pgam ( j ) -pv ( j ) 

RHOAIR (J)=PA(J) *XMA/ (RGAS*T(J) ) 

1026  continue 
return 

entry  source 

if (ibug)print  *, 'entry  source' 

C*****properties  for  the  two  layers 
do  1932  j=kyskin+l,kyair 
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tau ( j ) =taul 
eds ( j ) =edsl 
rf ( j ) =rf 1 
al ( j ) =all 
dsolid ( j ) =dsolidl 

1932  continue 

do  1933  j=kyair+l,m2 

tau ( j ) =tau2 

eds ( j ) =eds2 

rf ( j ) =rf2 

al ( j ) =al2 

dsolid (j ) =dsolid2 

1933  continue 


C*****FIBER  SOLID-STATE  SOURCE  TERM 

DO  1031  J=kyskin+1,M2 
RHUMID=PV  (J)  /  PS  AT  ( J ) 
rhliin=0 .95D0 
if  (rhumid.gt  .rhlim)  then 
rhumid=rhlirn 
end  if 

EBW  (J)  =  ( . 578dO*RF ( j ) *EDS ( J) *RHODS/RHOW) *RHUMID* 

1 (1 .d0/ ( .321dO+RHUMID) +l.d0/ (1 .262dO-RHUMID) ) 

XMDOT ( J) = ( FOLD ( J , 7 ) - EBW (J) ) *RHOW/DT 

1031  continue 

do  1032  j=kyskin+l,m2 
CSKIN=RHOW*EBW ( J) / (EBW(J) +EDS (J) ) 

CINSIDE=RHOW*FOLD ( J ,  7  ) / (FOLD ( J, 7 ) +EDS ( J) ) 

REQ=EBW ( J) *EDS ( J) *RHODS/RHOW 
RINST=FOLD ( J, 7 ) *EDS (J) *RHODS/RHOW 

XMDOT (J) =DSOLID ( j ) *RHODS* (RINST-REQ) / (aL ( j ) *aL ( j ) ) 
xmdot ( j ) =relax(8) *xmdot ( j ) + (1 ,d0 -relax (8) ) *fold( j ,8) 

EBW ( J) =FOLD ( J, 7 ) -XMDOT ( J) *DT/RHOW 

1032  CONTINUE 

DO  1042  J=kyskin+l,m2 
c  goto  1742 

c  xmdot (j ) =0 .d0 

xmdotlw( j ) =0 ,d0 

c  if ( j .eq.kyskin) goto  1742 

pwapor=psat  ( j ) 

rhovsat=pwapor*xmw/  (rgas*t  ( j  ) ) 
i f ( rhov ( j ) . g t . rhovsat ) THEN 
fog=elw(  j ) 

xmdot lw(  j  )  =fold( j  ,  9)  *  ( rhovsat -rhov (j  ) )  /dt 
xmdotlw(  j  )  =egam  ( j  )  *  ( rhovsat -rhov  (j  )  )  /dt 

xmdotlw(  j  )  =relax(17)  *xmdotlw(  j  )  +  (1  .d0-relax(17) )  *fold(  j  ,  17) 
elw(  j )  =fog-  (xmdotlw  ( j )  *dt/rhow) 
end  if 
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if (rhov(j) .lt.rhovsat .and.ELW(J) . GT . 0 . DO ) THEN 
fog=elw(  j ) 

xmdotlw( j ) =egam( j ) * (rhovsat-rhov( j ) ) /dt 

xmdotlw( j ) =relax(17) *xmdotlw( j ) + (1 .dO -relax (17 ) ) *fold ( j , 17 ) 
elw( j ) =fog- (xmdotlw( j ) *dt/rhow) 
if (elw(j) .It .O.dO) then 
elw( j ) =0 .dO 

xmdotlw( j ) =fog*rhow/dt 
end  if 
end  if 

1742  egam(  j  )  =1  .dO-eds  ( j  )  -ebw(  j  )  -elw(  j  ) 

j  switch=kyskin+l 
if ( j .eq. j switch) then 

c*****use  saturation  properties  at  skin  surface  temperature 
pwapor=psat  (j-1) 

rhovsat=pwapor*xmw/  (rgas*t  (j-1) ) 
c*****use  saturation  properties  at  1st  interface  temperature 
pwapor=psat  ( j ) 

rhovsat=pwapor*xmw/  (rgas*t  ( j  )  ) 
xmflux(l)  =0  .dO 
xmold=f old (3,15) 
xmswt= sweat  (1)  *dt 
s  kma  s  s  =xmo  1  d + xms  w  t 

c*****use  vapor  properties  at  skin  temperature 

DAIR= (2 . 20d-5) * ( (fold ( j , 6) /273 . 16d0) **1 .75d0) 
def f=dair*fold( j ,9) /tau(j ) 
df orce=rhovsat -rhov ( j ) 

if (dforce.gt . 0 .dO .and.elw( j ) .eq. 0 .dO) then 

xmflux(l) = (1 .d0/ycv( j ) ) *deff* (rhovsat-rhov ( j ) ) / (ycv( j ) /2 .dO) 
c  xmflux(l) =egam( j ) *dforce/dt 

xmaxflx= (skmass/dt) * (l.d0/ycv(j ) ) 
xmf lux ( 1 ) =dminl (xmf lux ( 1 ) , xmaxflx) 
xmleft=skmass- (xmf lux (1) *dt*ycv( j ) ) 
xmavai ( 1 ) = xml eft 
end  if 

c  end  i f 

if (dforce.le.O.dO) then 
xmflux(l) =0.d0 
xmavai ( 1 ) =skmass 
end  if 
end  if 

1042  continue 
return 


9999  stop 
end 
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C*****USER  routine  work.f 

C***** (olianges  in  work  rate  at  constant  environmental  conditions) 
C*****in  HP-700  directory  ../skin 

c*****october  1995 

SUBROUTINE  onerev 

C*****This  is  1-d  skin  model  for  human  thermal  control  system 
C*****Which  includes  a  double  clothing  layer 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

c********************************************************** 

CHARACTER  TITLE*18 
CHARACTER  DATAFILE1*60 
CHARACTER  DATAFILE2  *60 
character  datafile3*60 
CHARACTER  MARKER* 20 

LOGICAL  LSOLVE , LPRINT , LBLK, LSTOP , L STEADY, IBUG 
PARAMETER  ( JD= 100, NFD=2 0 , NFP3  =23 , MI J= 100) 

COMMON  F ( JD , NFD ) ,RHO(JD) ,GAM(JD) ,CON(JD) , 

1  AJP(JD) ,AJM(JD) ,AP(JD) , 

2  Y ( JD) , YV ( JD) , YDIF ( JD) ,YCV(JD) ,YCVS(JD) , 

3  YCVR ( JD) , YCVRS ( JD) 

COMMON/ INDX/NF ,  NFMIN,  NFMAX ,  NP ,  NRHO ,  NGAM ,  Ml ,  M2 ,  M3  , 

1JST, ITER, JITER, LAST, TITLE (NFP3) , RELAX (NFP3) , TIME , DT , YL , 

2 JPREF, LSOLVE (NFP3 ) , LPRINT (NFP3 ) , LBLK (NFP3 ) , RHOCON 
COMMON/CNTL/LSTOP , LSTEADY, LSCHEME 
COMMON/ SORC/SMAX, SSUM 
COMMON/COEF/FLOW, DIFF , ACOF 

COMMON/UNSTEDY/FOLD ( JD, NFD) ,FNEW(JD) , JLAST , 

1  IFLAG (NFD) ,EPS(NFD) , DIFMAX , JFLAG , deltat 
COMMON / EXPNT/ ALAMBDA ( JD ) , FP ( JD) 

DIMENSION  U (JD) , V ( JD) , PC ( JD) , P ( JD) 

EQUIVALENCE (F (1,1) ,U(1) ) , (F (1 , 2) , V (1) ) , (F (1 , 3 ) , PC (1) ) 
EQUIVALENCE (F (1,4) , P (1 ) ) 

£*★**  *******************  *********** **************** 


*  *  *  *  * UNSTEADY  DIFFUSION  PROBLEM*  *************************** 
COMMON/ DIFFL I  /  datafile ,  RHODS ,  RHOW,  TKDS ,  TKW,  TKV, 

1TKA,  CPDS ,  CPW,  CPV,  CPA,  PATM,  RGAS ,  XMW,  XMA,  CHTC ,  CMTC , 

1PSATB ,  RHBND ,  TBND ,  PVBND ,  RHOVBND ,  PABND ,  RHOABND ,  iwr i  t e ,  nprint , 
1METHOD ,  EPSRHOV,  PSATBB ,  PSATBT ,  RHBNDB ,  RHBNDT ,  TBNDB , 

1TBNDT ,  PVBNDB ,  PVBNDT ,  RHOVBNDB ,  RHOVBNDT ,  PABNDB ,  PABNDT , 
1RHOABNDB ,  RHOABNDT ,  WEIGHTI ,  WEIGHT ,  RHINT ,  EBWSAT , 
ldataf  ilel , dataf  ile2 ,  dataf  ile3 , TINT,  swtold,  swteb,  skebw, 
lrf 1 , rf 2 , taul , tau2 , all , al2 , edsl , eds2 , ebwint 1 , ebwint2 , 
ldsolidl , dsolid2 

COMMON/ SKINMOD/TAIRAMB ,  ky  1 ,  ky2 ,  ky3 ,  basemet ,  xercise ,  xkso , 
lrhocp , alphakp , alphakm , xgamk , alpham, sweat  0 , alphswt , xlmbswt , 
lybod ,  yskin ,  ymusc ,  ycore ,  yair ,  ycloth ,  mybod ,  mycore ,  my  skin , 
lmymusc  ,myair ,  my  cloth,  ky  core,  kymusc ,  ky  skin,  kyair,  ky  cloth, 
lskwork, dtb, tbodyO , rhprev, tau , rf , al , dsolid, skmass , truesrc 
DIMENSION  T ( JD) ,RHOV(JD) ,EBW(JD) ,XMDOT(JD) , 
lEGAM(JD)  ,  RHOAIR  ( JD)  ,PV(JD)  ,PA(JD)  ,PSAT(JD)  ,TSKIN(JD)  , 

1TBAVG  ( 1 )  ,  SWEAT  ( 1 )  ,XMAVAI(1)  ,XMFLUX(1)  ,ELW(JD)  , 

1XMDOTLW ( JD) , EDS ( JD) ,tau(jd) ,rf (jd) ,al(jd) , dsolid (jd) , 
ldef fg ( jd) , tkeffg ( jd) ,pgam( jd) , rhov2 ( jd) 
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EQUIVALENCE (F (1,5) ,rhov(l) ) , (F(l,6) , T (1) ) , 

1 (F ( 1 , 7 ) , EBW ( 1 ) ) , (F ( 1 , 8 ) , XMDOT ( 1 ) ) , 

1 (F(l,9) , EGAM ( 1 ) ) , (F(l,10) ,RHOAIR(l) ) , 

1 (F(l, 11) , PV(1) ) , (F(l, 12) , PA(1) ) , (F (1, 13 ) , PSAT (1) ) , 

1 (F(l, 14) , TSKIN ( 1 ) ) , (F (1 , 15) ,TBAVG(1) ) , (F (2 , 15) , SWEAT (1) ) 
1 (F (3 , 15) , XMAVAI ( 1 ) ) , (F(4,15) ,XMFLUX(1)) , (F(l,16) ,ELW(1)) 
1 (F (1 , 17 ) , XMDOTLW ( 1 ) ) , (F(l,18) ,EDS(1) ) , (f (1,19) ,pgam(l)) 
DATA  TITLE (5) /7H  vap/ 

DATA  TITLE (6) /7H  TEMP/ 

DATA  TITLE (7) /7H  EBW/ 

DATA  TITLE (8) /7H  XMDOT/ 

DATA  TITLE (9 ) /7H  EGAM/ 

DATA  TITLE ( 10 )/7H  RHOAIR/ 

DATA  TITLE (11) /7H  PVAP/ 

DATA  TITLE ( 12 )/7H  PAIR/ 

DATA  TITLE ( 13 )/7H  PSAT/ 

DATA  TITLE ( 14 )/7H  TSKIN/ 

DATA  TITLE (15) /7H  SKIN/ 

DATA  TITLE (16) /7H  ELW/ 

DATA  TITLE ( 17 )/7H  XMDOTL/ 

DATA  TITLE ( 18 )/7H  EDS/ 

DATA  TITLE ( 19 )/7H  pgam/ 

DATA  IBUG/ . false . / 
c************************** 

ENTRY  GRID 

IF  (IBUG)  PRINT  *,  "ENTRY  GRID" 
c  *  *  *  *  *THICKNESS  *  *********** 

C*****Body  Thickness  (m) 

YCORE= . 032d0 
YMUSC= . 016d0 
YSKIN= . 008d0 
YBOD=YCORE+YMUSC+YSKIN 
C*****N\mber  of  Nodes  in  Body 
MYCORE=ll 
MYMUSC=10 
MYSKIN=10 

MYBOD=MYCORE +MYMUSC  +MY  SKIN 
C*****Air  Layer  Thickness  (m) 

YAIR=l.d-4 

c  yair=0 . l*yair 

C*****NUmber  of  Nodes  in  Air  Layer 
MYAIR=3 

C*****Clothing  Thickness  (m) 

YCLOTH=9 . 14D-4 
c  ycloth= . 25d0*ycloth 

YCLOTH= . 5*YCLOTH 
yair=ycloth 

C*****Number  of  Nodes  in  Clothing  Layer 
MYCLOTH=4 

C*****Total  thickness  and  number  of  nodes 
YL=YBOD+YAIR+YCLOTH 
Ml=MYBOD+MYAIR+MYCLOTH 
yv(2) =0 . OdO 
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c*****C0RE  LAYER  (nodes  (l)/2  to  11) 
dycore=ycore/DFLOAT (HYCORE-1 ) 

KYcore=MYCORE 
do  10  j=3,kycore+l 
yv(  j ) =yv ( j - 1 ) +dycore 

10  continue 

c*****MUSCLE  LAYER  (nodes  12  to  21) 
dymusc=ymusc/DFLOAT  (MYMUSC ) 

KYmusc=KYCORE+MYMUSC 
do  11  j=kycore+2,kymusc+l 
yv(  j ) =y v ( j - 1 ) +dymusc 

11  continue 

C*****SKIN  layer  (nodes  22  to  31) 

dyskin=yskin/DFLOAT (MYSKIN- 1 ) 

KYskin=KYMUSC+MYSKIN 
do  12  j=kymusc+2,kyskin-l 
yv( j ) =yv( j-1) +dyskin 

12  continue 

yv(kyskin) =yv(kyskin-l) +dyskin- . 05*dyskin 
yv (kyskin+1 ) =yv (kyskin)  + . 05  *dyskin 
C*****AIR  LAYER  (nodes  32  to  35) 
dyair=yair/DFLOAT (MYAIR) 

KYa  i  r  =KYSKIN+MYAIR 
do  13  j=kyskin+2,kyair+l 
y v ( j ) =y v ( j - 1 ) +dyair 

13  continue 

c  *  *  *  *  *CLOTHING  LAYER  (nodes  36  to  55/(56)) 
dycloth=ycloth/DFLOAT (MYCLOTH-1 ) 

KYcloth=ml 

do  14  j=kyair+2 ,  kycloth 
yv ( j ) =yv( j  —  1 ) +dycloth 

14  continue 

RETURN 

C******** **************** *************************** 

C 

ENTRY  START 

IF  (IBUG)  PRINT  *,  "ENTRY  START" 
c*****input  the  data  file  name 
dt=l .DO 

nprint=int (60./dt) 

nprint=1000 

iwrite=nprint 

dataf i lei ='worknh2 . sst ' 

dataf ile2= ' noair . dyn ' 

datafile3='worknh2 .ebw' 

marker^ ' a ' 

c*****LscHEME=l-exponential, 2-implicit , 3-Crank-Nicolson 
LSTEADY= . TRUE . 
lscheme=2 
LSOLVE ( 5 )  = . TRUE . 

LSOLVE  ( 6 )  = .  TRUE . 
lsolve (20) =. true. 

EPS (5) =1 .D-3 
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EPS (6) =1 .D-3 
eps (20) =1 .d-3 
JLAST=1000 
LAST=1440000 
relax(5) =. ldO 
relax(6) =.ldO 
relax(5) =1. 
relax(6) =1. 
relax ( 17 )=.ldO 
relax ( 17 )=l.dO 
RELAX (8) =l.dO 
relax  (5)  =  .5 
relax(6) =1. 

c  relax  (9)  is  for  fiber  source,  relax(8)is  skin  source 
C*****PR0BLEM  CONSTANTS 
C*****INITIAL  EXERCISE  LEVEL  (W/mA2) 


c 

★★★★★Typical  values 

:  are:** 

c 

sleeping  =  0. 

c 

walking 

c 

.89  m/s  =  75. 

c 

1.34  m/s=  110. 

c 

1.79  m/s=180 . 

c 

Office  Work  =  16 . 

to  41. 

c 

Light  Work  =  50. 

to  98. 

c 

Heavy  Work  =  98. 

to  235. 

skwork=20 .DO 

C*****SKIN  CONSTANTS 
C*****INIXIAL  CONDITIONS  FOR  BODY 
c*****read  in  equilibrium  values  for  28  degrees  C 
open (13 , f ile='prof28 .dat ' ) 
do  113  j=l,kyskin 
read (13 , *) t ( j ) 

113  continue 
close (13 ) 

c*****These  three  quantities  not  used  in  this  version 
sweat (1) =0 . 
xmavai ( 1 ) =0 . 
xmf lux(l) =0 . 

c*****C0NVECTIVE  heat  TRANSFER  COEFFICIENTS  AT  BOUNDARY 
CHTC=16.dO 

c*****C0NVECTIVE  mass  TRANSFER  COEFFICIENTS  AT  BOUNDARY 
c*****CHTC= (RHO*CP) *CMTC 
CMTC= . 013d0 

C*****SOLID  PHASE  DIFFUSION  COEFFICIENT  OF  WATER 
DS0LID1=4 .D-13 
DSOLID2=4 .D-13 

c  *  *  *  *  * EFFECTIVE  FIBER  DIAMETER 
aLl=3 . 6D-6 
aL2=3 . 6D-6 

C*****MASS  FRACTION  OF  WATER  TO  DRY  SOLID  AT  65%  r.h. 
RF1=0 . OOdO 
RF2=0 . OOdO 
C*****T0RTU0SITY 
TAUl=l.dO 
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TAU2=2 . 9d0 
taul=2 .9d0 

c  *  *  *  * ♦volume  FRACTION  OF  DRY  SOLID 
edsl=0 . 001D0 
edsl=0.3D0 
eds2=0.3D0 
c*****DENSITIES 

RHODS=1500.d0 

RHOW=1000.d0 

C*****THERMAL  CONDUCTIVITIES 
TKDS=0 . 16d0 
TKW=0 . 6d0 
TKV=0.0246d0 
TKA=0 . 02563d0 
C*****HEAT  CAPACITIES 
CPDS=1200.d0 
CPW=4182.dO 
CPV=1862.dO 
CPA=1003.d0 

C*****TOTAL  GAS  PRESSURE  (ATMOSPHERIC) 
PATM=101325.d0 

C*****UNIVERSAL  GAS  CONSTANT 
RGAS=83 14 . 5d0 
c*****M0LECULAR  WEIGHTS 
XMW=18 . 015d0 
XMA=28.97dO 

C*****INITIAL  CONDITIONS 
TINTC=30 . OdO 
TINT=TINTC+273 . 15d0 
RHINT= . 650d0 
rhprev=rhint 

EBWINT1= ( 0 . 578dO*RFl*EDSl*RHODS/RHOW) 

1* (RHINT) * ( (1 .dO/ ( ,321d0+ (RHINT) ) ) 

1+ (1 .dO/ (1 . 262d0- (RHINT) ) ) ) 

EBWINT2  =  ( 0 . 578dO*RF2*EDS2*RHODS/RHOW) 

1* (RHINT)* ( (l.dO/ ( .321d0+ (RHINT) ) ) 
l+(l.dO/ (1.262d0- (RHINT) ) ) ) 

PSATI=614 . 3dO*DEXP (17 . 06d0* ( (TINT-273 . 15d0) 

1/ (TINT-40. 25d0) ) ) 

PVINT=RHINT*PSATI 
RHOVINT=PVINT*XMW/ (RGAS*TINT) 

C**** ♦BOUNDARY  CONDITIONS 
c*****TOP  OF  SLAB 
RHBNDT=RHINT 
TBNDT=TINT 

PSATBT=614.3dO*DEXP(17 .06d0* ( (TBNDT-273 . 15d0) 
1/ (TBNDT-40 .25d0) ) ) 

PVBNDT=PSATBT*RHBNDT 
PABNDT= PATM- PVBNDT 
RHOABNDT=PABNDT*XMA/ ( RG AS  * TBNDT ) 
RHOVBNDT=PVBNDT*XMW/  ( RG  AS  *  TBNDT ) 
c  initial  conditions  for  the  body 

rhbod=l .dO 
do  114  j=l,mybod 
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PSAT ( J) =614 . 3dO*DEXP ( 17 . 06d0* ( (T  ( j  ) -273 . 15d0) 
1/ (T ( j ) -40 .25d0) ) ) 

XMDOT (J) =0 .d0 

EBW ( J) =1 .DO 

EGAM ( J) =0 .DO 

ELW ( J) =0 .DO 

EDS ( J) =0 .DO 

XMDOTLW ( J) =0 .DO 

PV ( J) =PSAT ( j ) *rhbod 

RHOV (J) =pv( j ) *xmw/ (rgas*t ( j ) ) 

PA ( J ) =patm-p v ( j ) 

RHOAIR(J) =pa ( j ) *xma/ (rgas*t ( j ) ) 
pgam ( j ) =pa ( j ) +pv( j ) 

114  continue 


c*****INITIAL  CONDITIONS  FOR  AIR  LAYERS 
DO  101  J=kyskin+l,kyair 
T ( J) =TINT 
tau ( j ) =taul 
dsolid( j )=dsolidl 
al ( j ) =all 
rf ( j ) =rfl 
XMDOT (J)=0.d0 
xmdotlw(j)=0.d0 
EBW ( J) =EBWINT1 
EDS ( J) =EDS1 
ELW (J) =0 .DO 

EGAM ( J) =1 .d0-EDS ( J) -EBW (J) -ELW (J) 

XMDOTLW (J)=0. DO 

PV ( J) =PVINT 

RHOV ( J ) =RHOVINT 

PA( J) =PATM-PV ( J) 

RHOAIR ( J ) =PA ( J ) *XMA/ (RGAS*T(J) ) 
pgam ( j ) =  pa(j)+pv(j) 

PSAT ( J) =614 . 3dO*DEXP (17 . 06d0* ( (T(J) 
1-273 .15d0) / (T(J) -40.25d0) ) ) 

101  CONTINUE 

C*****INITIAL  CONDITIONS  FOR  CLOTHING  LAYERS 
DO  102  J=kyair+1 ,M1 
T(J)=TINT 
tau ( j ) =tau2 
dsolid ( j ) =dsolid2 
al ( j ) =al2 
rf ( j ) =rf2 
XMDOT (J)=0.d0 
xmdotlw( j ) =0 .d0 
EBW ( J ) =EBWINT2 
EDS ( J) =EDS2 
ELW ( J) =0 .DO 

EGAM(J) =1 .d0-EDS ( J) -EBW (J) -ELW(J) 
XMDOTLW (J)=0. DO 
PV ( J) =PVINT 
RHOV ( J) =RHOVINT 
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PA(J) =PATM-PV (J) 

RHOAIR ( J) =PA ( J) *XMA/ (RGAS*T(J) ) 

PSAT ( J) =614 .3dO*DEXP (17 . 06d0* ( (T(J) 

1-273. 15d0)/(T(J)-40.25d0) ) ) 
pgam(j)=pa(j)+pv(j) 

IF (J.EQ.M1)  THEN 
T (J) =TBNDT 
PV (J) =PVBNDT 
RHOV ( J) =RHOVBNDT 
PA ( J) =PABNDT 
RHOAIR ( J) =RHOABNDT 
PSAT ( J) =PSATBT 
pgam(j)=pa(j)+pv(j) 

END  IF 

102  CONTINUE 
LPRINT ( 5 ) = . TRUE . 

LPRINT ( 6 ) = . TRUE . 

LPRINT (7) =. TRUE. 

LPRINT (8 )=. TRUE. 

DO  103  J=1,M1 

DO  103  NF=1 ,NFD 
FOLD(J,NF) =F (J,NF) 

103  CONTINUE 

C  *  *  *  *  *  CALCULATE  INITIAL  WEIGHT  (MASS/SQ.  METER) 
WEIGHTI=0 . 0 
DO  104  J=kyskin+1 ,M2 
RHOAVG=RHOW*EBW ( J) +RHODS*EDS ( J) + 

1 (RHOV ( J) +RHOAIR ( J) ) *EGAM ( J) 

VOLUME= YCV ( J ) 

WEIGHT I =WE I GHT I + VOLUME * RHO AVG 

104  CONTINUE 

C*****reCOrd  run  variablesrfn/RF 

open ( 10 , access =' append' , f ile=dataf ilel) 

write  (10,  *)  "dt,  eps  (5) ,  eps  (6)  " 

write (10,*) "relax (5) , relax (6) , scheme" 

write (10, *) marker , dt , eps (5) , eps (6) 

write (10, *) marker, relax (5) , relax (6) ,lscheme 

write(10,*) "grid, Ml" ,M1 

write (10, *) marker, Ml 

write (10, *) "method,Thickness,Rf " 

write (10, *) "Dsolid, Initial  Weight" 

write (10,*) marker , METHOD , YL , RF 

wr ite ( 1 0 , * ) marker , DSOLID , WEIGHTI 

write (10, *) "rhint , rhbndt , rhbndb" 

wr ite ( 1 0 , * ) marker , rhint , rhbndt , rhbndb 

write(10, *) "time, t,rhov,ebw,xmdot, weight, %  change" 

write (10, *) "//nc" 

write (10, *) "time, tavg, trect, tskin, tfabric,dtb" 
close (10) 

open (ll,access=' append' , file=dataf ile2) 
write (11, *) "temp,r.h. ,xmdot" 
write (11, *) "//nc" 
close (11) 

open (25 , access= ' append' , f ile=dataf ile3 ) 
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write(25,*)  "time,  sweat  ,xmavai  (1)  ,xmdot  (kyskin)  ,ebw,rhsk" 
close (25) 

RETURN 

c**************************************************** 

C 

ENTRY  UNSTDY 
C  *  *  *  *  *FOLD=FNEW 

IF  ( IBUG)  PRINT  *,  " ENTRY  UNSTEADY" 

DO  200  J=1,M1 
DO  200  NF=1 ,NFD 
FOLD ( J,NF) =F ( J, NF) 

200  CONTINUE 

RETURN 

C********************** ***********  ******************** 

C 

ENTRY  DENSE 


c 

call 

thermo 

c 

call 

pressure 

c 

call 

skin 

c 

call 

source 

IF  (IBUG)  WRITE  (*,*)  "ENTRY  DENSE" 

RETURN 

£****★ ******************* ************** ***************** 

C 

ENTRY  BOUND 

IF (IBUG) print  *,  'entry  bound' 
t (1) =t (2) 

c  call  pressure 

RETURN 

c*********************** **************************  ******* 

c 

entry  output 1 

c  print  *, '£  (j,15) , fold ( j , 15) , f ( j , 16) , fold (j , 16) ' 

do  1884  j  =1 ,ml 

c  print  *,f  (j,15)  ,fold(j,15)  ,f  (j,16)  ,fold(j,16) 

1884  continue 
return 

ENTRY  OUTPUT 

if (ibug) print  *,  'ENTRY  OUTPUT' 
call  outtoo 
c  difmax=0.0 

c  if (nf .eq.5) then 

c  jstrt=kyskin+l 

c  jends=m2 

c  end  if 

c  if (nf .eq.6) then 

c  jstrt=2 
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c  jends=m2 

c  end  if 

c  if (nf .eq.5.or.nf .eg. 6) then 

cd  do  731  j=jstrt, jends 

c  deltat=dabs ( (f ( j ,nf ) -fnew( j ) ) / (f ( j ,nf ) +1 .d-50) ) 

c  difmax=dmaxl (difmax, deltat) 

c  731  continue 

c  if (difmax.le.eps (nf) )  iflag(nf)=l 

if ( j iter. gt .200) then 
c  print  *,jiter,nf 

iflag (nf ) =1 

c  print  *,'did  it' 

end  if 

if (ibug)print  *,nf 
RETURN 

ENTRY  OUTPUT2 
RETURN 

ENTRY  0UTPUT3 
RETURN 

c 

ENTRY  GAMS OR 
call  thermo 
c  call  skin 

c  call  source 

IF  ( IBUG)  print  *,  'entry  gamsor' 

GO  TO  (699, 699, 699, 699,610,600)  NF 
c  if (nf .eq.20)goto  610 

go  to  699 

600  CONTINUE 


C*****SKIN  CALCULATIONS 

C  *  *  *  *  *  CALCULATE  AVERAGE  BODY  TEMPERATURE  AND  DTB 

c*****use  rectangles  to  integrate  temperature 
tbody 0=3  08 . 9d0 
ttskin=0.d0 
DO  670  J=2,kyskin 
ttskin=tt skin+t ( j ) *ycv ( j ) 

670  CONTINUE 

TBAVG (1) = (1 .dO/YBOD) *ttskin 

DTB=TBAVG ( 1 ) -tbody 0 

DIFFTB= (TBAVG ( 1 ) -FOLD (1,15)) /DT 

c  *  *  *  *  *C0NsTANTS 

c*****basal  metabolic  rate  (VJ/ia~3) 
BASEMET=1339.d0 

c*****exercise  muscular  heat  generation  (W/m^2) 
XERCISE=skwork/YMUSC 
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c*****referencG  skin  conductivity  (W/m-K) 

XKSO= . 498d0 

c  *  *  * *  *dens i ty  *heat  capacity  ( J /mA3 -K ) 

RH0CP=4 . 1868D6 

c*****thermal  proportional  control  coefficients  (1/K) 
ALPHAKP=  . 729d0 
ALPHAKM=  .326d0 

c*****therrnal  rate  control  coefficients  (sec/K) 
XGAMK=1106.d0 

C*****shivering  energy  generation  constant  (1/K) 
alpham=0 .dO 

c*****reference  sweat  generation  (kg/m/v2-sec) 
sweat 0=2 . 80D-6 

c*****sweating  proportional  control  constant  (kg/m^2-sec-K) 
alphswt=6 . 98D-6 

c*****SWeating  rate  control  coefficient  (kg/m/'2-sec-K'N4) 
xlmbswt=2 . 69D-5 

do  664  j=l,kyskin 
rho ( j ) =rhocp 
if (dtb.gt . 0 .dO) then 

gam(  j ) =  xkso* (1 .dO+alphakp*dtb+xgamk*dif f tb) 

xkplim=l . 511d0*xkso 

if (gam(j) .ge.xkplim) then 

gam( j ) =xkplim 

end  if 

end  if 

if (dtb. le.O.dO) then 

gam(  j  )  =  xkso*  (1  .dO+alphakm*dtb+xgaink*dif  ftb) 

xkmlim= . 675d0*xkso 

if  (gain(j)  .  le.xkmlim)  then 

gam(  j )  =xkmlim 

end  if 

end  if 

664  continue 

c*****inSulated  condition  at  body  center  for  symmetry 
gam(l) =0 . OdO 
t (1) =t (2) 

c*****body  core 

do  661  jl=l/kycore 
con ( j 1 ) =BASEMET 
ap ( jl) =0 . OdO 
661  continue 

C*****muscle  layer 

do  662  j2=kycore+l,kymusc 

c*****shivering  control  coefficients  (W/m^S-K)  or  (W/m/s3-K/N2) 

c*****shivering  heat  generation  is  (W/M^3) 
ashivl=324.1d0 
ashiv2=383 .  8d0 
ashiv3=966.9d0 

if (dtb . gt . 0 . dO ) deltmet =XERCISE 
if (dtb. le.O .dO) then 
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if (dtb. le. 0 .dO .and.dtb.ge. -1 . OdO) then 
SHIVER=-ashivl *dtb+ashiv2 *dtb*dtb 
end  if 

if (dtb . It . -1 . OdO ) then 

SHIVER=660 . 256d0-ashiv3 * (dtb+1 . OdO ) 

end  if 

de 1 tme t = SHI VER+XERC I SE 
end  if 

con( j2) =deltmet 
ap ( j2) =0 . OdO 

662  continue 

c*****Skin  layer 

do  663  j=kymusc+l,kyskin 

con ( j ) =0 . OdO 

ap ( j ) =0 . OdO 

if ( j .eq.kyskin) then 

sknevap=xmf lux ( 1 ) 

jsk=kyskin+l 

dhvap= (2 . 792D6) -160 .d0*f old ( j sk, 6) -3 . 43d0*f old ( j sk, 6) 
l*fold ( jsk, 6) 
xsource=-dhvap*sknevap 
c  if (rhumid.ge. 1 . OdO) then 

c  print  * , rhumid 

c  xsource=0.d0 

c  end  i f 

if (xsource.ge. 0 .dO) then 
con ( j ) =xsource 
ap ( j ) =0  .dO 
end  if 

if (xsource.lt . 0 .dO) then 

con ( j ) =0 .dO 

ap ( j ) =xsource/t ( j ) 

end  if 

end  if 

c  print  *,xsource 

c  write (*, 815) j , gam ( j ) ,xmdot (j) ,xmdotlw(j) ,elw(j) #ebw(j) ,egam(j) 

663  continue 

C*****Sweating  Production  and  Rate 
if (dtb.ge. 0 .dO) then 

Sweat (1) =sweatO+alphswt*dtb+xlmbswt* ( (dtb) **4) 

swtlim=60  .dO*sweatO 

if  (Sweat  (1)  .gt .  swtlim)  then 

Sweat  ( 1 )  =swt  1  im 

end  if 

end  if 

if (dtb.lt.O.dO) then 
Sweat (1) =sweatO 
end  if 
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WEIGHT=0 . OdO 

DO  602  J=kyskin+l,ml 

C*****DENSITY  AND  HEAT  CAPACITY  FOR  ENERGY  EQUATION 

RHOAVG=RHOW* (fold(j ,7) +fold( j , 16) ) +RHODS*EDS (J)+ 

1 (fold( j , 5) +fold(j ,  10) ) *fold( j  ,9) 

CPAVG= (RHOW* (fold ( j , 7) +fold ( j , 16) ) *CPW+RHODS*EDS (J) *CPDS+ 

1 (fold( j , 5) *CPV+fold ( j , 10) *CPA) *fold( j ,9) ) /RHOAVG 
c  RHOAVG=RHOW* (ebw ( j ) +elw ( j ) ) +RHODS*EDS ( J) + 

c  1 (rhov( j )+rhoair ( j ) ) *egam( j ) 

c  CPAVG= (RHOW* (ebw ( j ) +elw ( j ) ) *CPW+RHODS*EDS ( J) *CPDS+ 

c  1 (rhov( j ) *CPV+rhoair ( j ) *CPA) *egam  ( j ) ) /RHOAVG 

RHO ( J) =RHOAVG*CPAVG 

c  *  *  *  *  *  CALCULATE  CURRENT  WEIGHT  (MASS/SQ.  METER) 

C*****AND  WEIGHT  GAIN  OR  LOSS  FROM  INITIAL  CONDITION 
VOLUME=YCV ( J) 

WEIGHT=WEIGHT+VOLUME*RHOAVG 

WEIGHTG=WEIGHT-WEIGHTI 

C*****DIFFUSION  COEFFICIENTS  AND  SOURCE  TERMS 

TKF= ( (TKW*RHOW* (fold( j ,7) +fold(j , 16) ) +TKDS*RHODS*EDS (J) ) 

1/ (RHOW* ( f old ( j , 7 ) +fold ( j ,  16)  ) +RHODS*EDS ( J) ) ) 

TKG= ( (TKV*fold ( j , 5) +TKA*fold ( j , 10) ) / 

1 (fold ( j , 5) +fold( j , 10) ) ) 

c  TKF= ( (TKW*RHOW* (ebw( j ) +elw( j ) ) +TKDS*RHODS*EDS (J) ) 

c  1/ (RHOW* (ebw( j ) +elw( j ) ) +RHODS*EDS (J) ) ) 

c  TKG= ( (TKV*rhov ( j ) +TKA*rhoair ( j ) ) / 

c  1 (rhov( j ) +rhoair ( j ) ) ) 

VF=EDS ( J) +ebw( j ) +elw ( j ) 
vf=eds ( j ) +fold( j , 7) +fold ( j ,16) 

TKPERP=TKF*TKG/ (VF*TKG+ (1 . -VF) *TKF) 

TKPRLL= (1 .d0-VF) *TKG+VF*TKF 
WOMEGA=l.dO 

TKEFF =WOMEG A  *  TKPRLL+ ( 1 . OdO-WOMEGA) *TKPERP 
C*****Cylinder  Model 

C  TKEFF=TKG* ( (TKF* (1 . +VF) +TKG* (1 . -VF) ) / 

c  1 (TKF* ( 1 . -VF) +TKG* (1 . +VF) ) ) 

GAM ( J) =TKEFF 

DHVAP= (2 .792D+6) -160 . dO*f old ( J,  6) -3 . 43d0*f old ( J, 6) *fold(J, 6) 
rhlim=0.95d0 

rhumid=fold ( j  ,  11)  /fold(j  ,  13) 
if ( rhumid. gt.rhlim) then 
rhumid=rhlim 
end  if 

QL= ( 1 . 95D+5 ) * ( 1 . dO-rhumid) 

1* ( (1 .d0/ (0 .2d0+ (rhumid) ) ) + 

1 (l.dO/ (1.05d0- (rhumid) ) ) ) 

C*****ALL  SOURCE  TERMS  LUMPED  INTO  CON(J)  (LAZY  WAY) 
xhyg=- (dhvap+ql) *xmdot ( j ) 
xliq=-dhvap*xmdotlw( j ) 
xsource=xhyg+xliq 
i f (xsource . ge . 0 . dO ) then 
con ( j ) =xsource 
ap(j)=0.d0 
end  if 
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if (xsource.lt.O.dO)then 
con(j ) =0 .dO 
ap ( j ) =xsource/t ( j ) 
end  if 

602  CONTINUE 

c*****CREATE  CONVECTIVE  BOUNDARY  CONDITIONS 
c  GDYM=GAM ( 1 ) / YDIF ( 2 ) 

GDYP=GAM (Ml ) /YDIF (Ml ) 

c  AREAM=1 . OdO/ ( (1 . 0d0/CHTC+l . 0/GDYM) *YCV (2 ) ) 

AREAP=1 . OdO/ ( (1 . 0d0/CHTC+l . OdO/GDYP) *YCV(M2) ) 
c  GAM (1) =0 . 0 

GAM (Ml ) =0 . OdO 

C  CON (2 ) =CON (2 ) +AREAM*TBNDB 

c  AP (2 ) =AP ( 2 ) -AREAM 

CON (M2 ) =CON (M2 ) + ARE AP  * TBNDT 
AP (M2 ) =AP (M2 ) -AREAP 
c  call  output 1 

c  print  *,nf 

c  print  *, ' j ,gam,xmdot ,xmdotlw, elw, ebw, egam' 

c  do  1239  j=l,ml 

c  print  *, j,gam(j) ,xmdot(j) ,xmdotlw(j ) ,elw(j) ,ebw(j) ,egam(j) 

c  1239  continue 
GO  TO  699 

610  CONTINUE 
c  call  thermo 

c  call  skin 

call  source 

C*****DO  NOT  INCLUDE  BODY  LAYER  IN  VAPOR  SOLUTION 
do  609  j=l,kyskin 
gam(j)=0.0d0 
con( j ) =0 . OdO 
ap ( j ) =0 . OdO 

609  continue 


j  start=kyskin+l 
DO  611  J=j start, Ml 

C*****DENSITY  TERM  FOR  MASS  DIFFUSION  EQUATION 
RHO ( J) =EGAM ( J) 
rho(j ) =fold(j ,9) 

C*****DIFFUSI0N  COEFFICIENTS  AND  SOURCE  TERMS 

DAIR= (2 .20D-5) * ( (fold(J, 6) /273 . 15d0) **1.75) 

DEFF=DAIR*EGAM  ( J) /TAU ( J) 
deff=dair*fold ( j ,9) /tau ( j ) 

GAM ( J) =DEFF 

xsource= (xmdot ( j ) +xmdotlw( j ) ) 

c  xsource= (1 .d0-f ( j , 5) ) *xsource+ 

c  1 (l.d0-egam( j ) ) * (rhov( j ) +rhoair ( j ) ) * (f ( j , 5) -fold( j , 5) ) /dt 

xsource=xsource-rhov( j ) * (egam( j ) -fold( j , 9) ) 
if ( j . eq. j start) then 
xsource=xsource+xmf lux ( 1 ) 
end  if 
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c*****source_term  dominated  calculations 
pwapor=psat  ( j ) 

rhovsat=pwapor*xmw/  (rgas*t  ( j  ) ) 
paair=pgam  ( j  )  -pwapor 
rhoasat=paair*xma/ (rgas*t ( j ) ) 
xmsat=rhovsat/ (rhovsat+rhoasat ) 
rhumid=pv( j ) /psat ( j ) 

IF (xsource . LT . 0 . dO )  THEN 
CON ( J) =0 .dO 

AP (J) =xsource/ (rhov(J) ) 
if (elw(j) .gt .O.dO) then 
xmf lim=0 . 99D0*xmsat 

c  con ( j ) =xsource*xmf  lim/ (xmf lim-xmf ( j ) ) 

c  ap ( j ) =-xsource/ (xmf lim-xmf ( j ) ) 

c  con ( j )  =  ( 1 . D5  0 ) *xmf 1 im 

c  ap(j)=-l.D50 

end  if 
j jl=kyskin+l 

if (xmavai(l) .gt . 0 .dO .and. j .eq. jjl)then 
con ( j ) =xsource*rhovsat/ (rhovsat-rhov( j ) ) 
ap ( j ) =-xsource/ (rhovsat-rhov( j ) ) 
truesrc=con ( j ) +ap ( j ) *rhov( j ) 
end  if 
END  IF 

IF (xsource . GE . 0 . dO ) THEN 
CON (J) =xsource 
AP { J) =0 . OdO 

c  if (elw(j) .gt .O.dO) then 

if ( j .eq.kyskin+1 .and.xmavai (1) .gt . 0 .dO) then 
xmf 1 im= . 9  9  D  0  *xmsat 

c  con ( j ) =xsource*xmf lim/ (xmf lim-xmf ( j ) ) 

c  ap ( j ) =-xsource/ (xmf lim-xmf ( j ) ) 

c  con ( j ) = (1 .D50) *xmf lim 

c  ap(j)=-l.D50 

end  if 

j jl=kyskin+l 

if (xmavai(l) .gt .O.dO. and. j .eq. jjl) then 
con ( j ) =xsource*rhovsat/ (rhovsat-rhov( j ) ) 
ap ( j ) = -xsource/ (rhovsat-rhov( j ) ) 
truesrc=con( j ) +ap ( j ) *rhov( j ) 
end  if 

END  IF 

611  CONTINUE 

c*****CREATE  CONVECTIVE  BOUNDARY  CONDITIONS 
c  GDYM=GAM ( 1 ) /YDIF (2 ) 

GDYP=GAM (Ml ) /YDIF (Ml ) 

C  AREAM=1 . 0/  (  (1 . 0/CMTC+l .  0/GDYM)  *YCV(2)  ) 

AREAP=1 .  OdO/  ( (1 . 0d0/CMTC+l .  OdO/GDYP)  *YCV(M2)  ) 
c  GAM  (1)  =0 . 0 

GAM  (Ml)  =0  .  OdO 
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C  CON (2 ) =CON (2 ) 4AREAM*RHOVBNDB 

C  AP ( 2 ) =AP ( 2 ) - AREAM 

CON (M2 ) =CON (M2 ) + AREAP  *RHOVBNDT 
AP  (M2 )  =AP  (M2 )  -AREAP 
c  call  output 1 

c  print  * , nf 

c  print  '  j  ,gam/xmdot,xmdotlw,elw,ebw,egain' 

c  do  1279  j=l,ml 

c  print  *,  j,gain(j)  ,xmdot(j)  ,xmdotlw(j)  ,elw(j)  ,ebw(j)  ,egam(j) 

c  1279  continue 
GOTO  699 

699  RETURN 

Q* ********************************************************** 

C 

ENTRY  SAVE1 
RETURN 

c* ******************************************************** 

C 

ENTRY  OUTTOO 
LPRINT ( 5 )  =  . TRUE . 

LPRINT ( 6 )  = . TRUE . 
timel=time/3600 . 
c  if (timel.lt .2 .) goto  899 

if (timel.gt .8. )goto  9999 
if (timel.gt .3 . ) then 
dt=l.d-l 
relax(6)=.ld0 
relax(5) = . ldO 
relax ( 17 )=.5d0 
relax (5) = . 5 
relax (6) =1 . 
relax(17) =1 . 
nprint=l 

nprint=int (60 . /dt ) 
nprint=10000 
c  iwrite=nprint 

if (timel .gt .3 .25) then 

dt=l.d-l 

nprint=10000 

end  if 

rhlim=0.9d0 

tchange=600 .d0 

rhchange=0.6d0 

de 1 rhd t  =rhchang e / 1 change 

rhprev=rhprev+delrhdt*dt 

if (rhprev.gt .rhlim) then 

rhprev=rhlim 

end  if 

rhprev=0 . 65d0 
relax(17) =l.d0 
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skwork=200.D0 
RHBNDT=rhprev 
TINTC=3 0 . OdO 
TINT=TINTC+273 . 15d0 
TBNDT=TINT 

PSATBT=614 .3dO*DEXP (17 . 06d0* ( (TBNDT-273 . 15d0) 
1/ (TBNDT-40.25d0) ) ) 

PVBNDT=  P  S ATBT  *  RHBNDT 
PABNDT=  PATM-  PVBNDT 
RHOABNDT=PABNDT*XMA/ (RGAS*TBNDT) 

RHOVBNDT= PVBNDT*XMW / (RGAS*TBNDT) 

rhov (ml ) =rhovbndt 

pv (ml ) =pvbndt 

psat (ml ) =psatbt 

pa (ml) =pabndt 

rhoair (ml ) =rhoabndt 

t (ml ) =tbndt 

end  if 

if (timel .gt .4 .dO) then 
dt=l.d-l 
nprint=10000 
c  relax (5) =.5 

c  relax(6)=.5 

c  relax(8)=.l 

c  relax(8)=l. 

if (timel.gt.4.25d0)then 
dt=l .d-1 

c  nprint=int (dt) *60 

c  relax(8)=l. 

end  if 
skwork=20.D0 
RHBNDT=0 . 650d0 
TINTC=30.d0 
TINT=TINTC+273 . 15d0 
TBNDT=TINT 

PSATBT=614 .3dO*DEXP (17 . 06d0* ( (TBNDT-273 . 15d0) 
1/ (TBNDT-40 .25d0) ) ) 

PVBNDT=  P  S ATBT  *  RHBNDT 
PABNDT= PATM- PVBNDT 
RHOABNDT=PABNDT*XMA/ (RGAS*TBNDT) 

RHO VBNDT=  PVBNDT  *  XMW / (RGAS*TBNDT) 

rhov (ml ) =rhovbndt 

pv (ml ) =pvbndt 

psat (ml) =psatbt 

pa (ml ) =pabndt 

rhoair (ml ) =rhoabndt 

pgam (ml ) =pv (ml ) +pa (ml ) 

t (ml ) =tbndt 

end  if 

if  (iwrite.eq.nprint) then 

open (10, access=' append' , file=datafilel) 

templ=tbavg(l) -273 .15d0 

temp2=t (1) -273 .15d0 
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temp3=t (kyskin) -273 . 15d0 
temp4=t (m2) -273 .15d0 

write (*,*) "time  tbody  tcore  tskin  tclsurf  dtb  ebwskin" 
write ( * , 817 ) timel , tempi , temp2 , temp3 , temp4 , 
ldtb, ebw(kyskin+l) 

write (10,816 ) timel , tempi , temp2 , temp3 , temp4 , 
ldtb 

816  format (5ell. 5, lx, ell. 5) 

817  format (7f 11. 5) 

818  format (il0,3ell. 5) 
close (10) 

open (25, access=' append' , f ile=dataf ile3 ) 
rhumid=pv(kyskin+l) /psat (kyskin+1) 
write (25, 816) timel, sweat (1) ,xmavai (1) ,xmflux(l) , 
lelw (kyskin+1)  .rhumid 
close (25) 

c  write (* , *) "iter, temp (K) , temp (C) , dens , humid, xmdot" 

open ( 11, access=' append' , file=datafile2 ) 
write (*,*) "iter, sweat, mass  left  on  skin" 
write ( * , * ) iter , sweat ( 1 ) , xmavai ( 1 ) 

write (*,*) "original  sweat, sweat  evaporated, sweat  left" 
xsleft=xmavai (1) 

swteb=xmf lux ( 1 ) *dt *y c v ( ky skin+ 1 ) 
swtbeg=fold(3 , 15) +sweat (1) *dt 
write ( * , 822) skmass , swteb, xslef t 
print  *, 'source  used  (total),  truesrc' 

print  *,xmflux(l) , xmdot (kyskin) , xmdot lw( kyskin) , truesrc 
c  write  (*, *) " j , temp, elw, rhumid, xmf lux (1) ,xmdotlw, egam" 

822  format (3el5. 4) 

c  print  *, ' j , temp,rhov( j ) , rhumid, xmdot ( j ) , ebw( j ) ,xmlw( j ) , elw( j ) ' 

print  * , ' j , temp , rhov ( j ) , rhumid , xmdot ( j ) , ebw ( j ) , pv ( j ) , pgam  ( j ) ' 
c  print  ' j,egam(j) ,ebw(j) ,elw(j) ,xmflux(l) ,xmdotlw(j) ,xmf (j) ' 

j  end=ml 

jstrt=kyskin-l 

do  897  j=jstrt,jend 

temp=t ( j ) -273 . 15 

rhumid=pv( j ) / (psat ( j ) +1 .D-50) 

flux=xmdot ( j ) 

if ( j .eq. kyskin+1) then 

flux=xmflux(l) 

end  if 

c  write (*, 815) j , temp, rhov ( j ) , rhumid, flux, ebw ( j ) 

c  l,xmdotlw(j) ,elw(j) 

write (*, 815) j , temp, rhov (j ) , rhumid, flux, ebw ( j ) 

1 , pv ( j ) , pgam ( j ) 

c  write ( 11 , 818 ) j , temp , rhumid, xmdot ( j ) 

897  continue 

c  print  *, ' j,egam(j) ,ebw(j) ,elw(j) ,xmflux(l) ,xmdotlw(j) ,xmf (j)  ' 

do  898  j=kyskin-l ,ml 
temp=t ( j ) -273 . 15 
rhumid=pv(j) / (psat (j)+l.D-50) 
if ( j .eq. kyskin+1) then 

c  write (*, 815) j , egam (j ) , ebw( j ) , elw( j ) ,xmflux(l) ,xmdotlw(  j ) ,xmf  ( j ) 
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end  if 

c  write  (* ,  815)  j  ,  egam(  j  )  ,  ebw(  j  )  ,  elw(  j  )  ,xmdot  ( j  )  ,xmdotlw(  j  )  ,xmf  ( j  ) 

c  write  (11, 818)  j  ,  temp,  rhumid,xmdot  ( j  ) 

898  continue 
close (11) 

815  format ( lx, i7 , If 9 . 3 , e9 . 3 , 5e9 . 3 ) 
iwrite=0 
endif 

iwrite=iwrite+l 

811  format (lelO .3 , lx, elO . 5 , lx, elO . 5, 4el0 .3 ) 

812  format  (Sell. 4) 

899  RETURN 

q*  *******************************************************  * 

C 

ENTRY  SAVE PC 
RETURN 


Q************ ***************************  ****************** 

c 

ENTRY  SAVE2 
RETURN 


entry  THERMO 

c  if (ibug)print  *, 'entry  thermo' 

do  1021  j=kyskin,ml 
c  xmfr=xmf ( j ) / (1 .dO-xmf ( j ) ) 

c  rhov( j ) = (xmfr* (patm*xma/ (rgas*t ( j ) ) ) ) 

c  1/ (1 .dO+xmfr* (xma/xmw) ) 

PSAT ( J) =614 .3dO*DEXP (17 . 06d0* ( (T ( J) -273 . 15d0 ) / 
1 (T ( J) -40 . 25d0) )  ) 

PV(J) =RHOV ( J) *RGAS*T ( J) /XMW 
PA ( J) =PATM-PV ( J) 
pgam ( j ) =pa ( j ) +pv( j ) 

RHOAIR ( J) =PA ( J) *XMA/ (RGAS*T(J) ) 

1021  continue 
return 

entry  pressure 
do  1026  j=kyskin/ml 
Pgam(J) =PATM 

PV  ( J)  =RHOV  ( J)  *RGAS*T  ( J)  /X MW 
pa  ( j  )  =pgam  ( j )  -pv  ( j  ) 

RHOAIR (J)=PA(J)*XMA/ (RGAS*T(J) ) 

1026  continue 
return 

entry  source 

if (ibug)print  *, 'entry  source' 
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c*****pr0perties  for  the  two  layers 
do  1932  j =kyskin+l , kyair 
tau ( j ) =taul 
eds ( j ) =edsl 
rf ( j ) =rfl 
al ( j ) =all 
dsolid ( j ) =dsolidl 

1932  continue 

do  1933  j=kyair+l,m2 

tau  ( j  )  =tau2 

eds ( j ) =eds2 

rf ( j ) =rf2 

al ( j ) =al2 

dsolid ( j ) =dsolid2 

1933  continue 


C*****FIBER  SOLID-STATE  SOURCE  TERM 

DO  1031  J=kyskin+1 ,M2 

RHUMID=PV (J) /PSAT(J) 

rhlim=0.95D0 

if (rhumid.gt .rhlim) then 

rhumid=rhlim 

end  if 

EBW ( J) = ( . 578dO*RF ( j ) *EDS ( J) *RHODS/RHOW) *RHUMID* 

1 (1 .d0/ ( . 321dO+RHUMID) +1 . dO/ ( 1 .262dO-RHUMID) ) 

XMDOT ( J) = (FOLD ( J, 7 ) -EBW ( J) ) *RHOW/DT 

1031  continue 

do  1032  j=kyskin+l,m2 
CSKIN=RHOW*EBW ( J) / (EBW ( J) +EDS (J) ) 

C INS I DE =RHOW * FOLD ( J, 7 ) / (FOLD (J, 7 ) +EDS ( J) ) 

REQ=EBW(J) *EDS ( J) *RHODS/RHOW 
RINST=FOLD ( J, 7 ) *EDS ( J) *RHODS/RHOW 

XMDOT (J) =DSOLID ( j ) *RHODS* (RINST-REQ) / (aL  ( j ) *aL ( j )  ) 
xmdot ( j ) =relax(8) *xmdot ( j ) + (1 .d0-relax(8) ) *fold( j ,8) 

EBW ( J) =FOLD ( J, 7 ) -XMDOT ( J) *DT/RHOW 

1032  CONTINUE 

DO  1042  J=kyskin+1 ,m2 
c  goto  1742 

c  xmdot (j ) =0 .d0 

xmdotlw(j)=0.d0 

c  if ( j .eq.kyskin) goto  1742 

pwapor=psat  ( j ) 

rhovsat=pwapor*xmw/  (rgas*t  ( j ) ) 
i f ( rhov ( j ) . gt . rhovsat ) THEN 
fog=elw( j ) 

xmdot lw( j ) =fold( j , 9) * ( rhovsat- rhov (j ) ) /dt 
xmdotlw( j ) =egam( j ) * ( rhovsat- rhov ( j ) ) /dt 


304 


xmdotlw{  j  )  =relax(17 )  *xmdotlw(  j  )  +  (1  .dO -relax (17) )  *fold  ( j  ,  17) 
elw(  j  )  =fog-  (xmdotlw(  j )  *dt/rhow) 
end  if 

if  (rhov(j)  .  It . rhovsat . and . ELW ( J )  .GT.  0  .DO) THEN 
fog=elw( j ) 

xmdotlw( j ) =egam(  j ) * ( rhovsat -rhov( j ) ) /dt 

xmdot lw ( j ) =relax ( 17 ) *xmdotlw ( j )  +  (1 . dO-relax ( 17 ) ) *f old ( j , 17 ) 
elw( j ) =fog- (xmdot lw( j ) *dt/rhow) 
if (elw(j) .lt.O.dO) then 
elw(j)=0.d0 

xmdot lw( j ) =fog*rhow/dt 
end  if 
end  if 

1742  egam(  j  )  =1  .dO-eds  ( j  )  -ebw( j  )  -elw(  j  ) 

j  switch=kyskin+l 
if (j .eq.  j switch) then 

c*****usg  saturation  properties  at  skin  surface  temperature 
pwapor=psat  (j-1) 
rhovsat  =pwapor*xmw/  (rgas*t  (j-1) ) 
c*****use  saturation  properties  at  1st  interface  temperature 
pwapor=psat  ( j ) 

rhovsat=pwapor*xmw/  (rgas*t  ( j ) ) 

xmflux(l) =0.d0 

xmold=fold (3 , 15) 

xmswt= sweat (1) *dt 

skmass=xmold+xmswt 

c*****use  vapor  properties  at  skin  temperature 

DAIR= (2 . 20d-5) * ( (fold( j , 6) /273 . 16d0) **1 .75d0) 
deff=dair*fold( j , 9) /tau ( j ) 
dforce=rhovsat~rhov( j ) 

if (dforce .gt . 0 .dO .and.elw ( j ) .eq. 0 .dO) then 

xmf lux(l) = (l.dO/ycv( j ) ) *deff* ( rhovsat -rhov( j ) ) / (ycv( j ) /2 .dO) 
c  xmflux(l) =egam( j ) *dforce/dt 

xmaxf lx=  (skmass/dt )  *  (1  .dO/ycv(  j ) ) 
xmf  lux(l)  =dminl  (xmf  lux(l)  ,  xmaxf  lx) 
xmleft=skmass-  (xmflux(l)  *dt*ycv(  j  )  ) 
xmavai ( 1 ) =xmlef t 
end  if 

c  end  if 

if (dforce . le . 0 . dO ) then 
xmf lux (1) =0 . dO 
xmavai (1) =skmass 
end  if 
end  if 

1042  continue 
return 


9999  stop 
end 
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